options pagesize=53 linesize=76;
data new;
 input x;
 label x='Descriptive Label';
 if x<5 then output;
datalines;
5 
3 
4 
9 
6
5
5
6
title 'Testing for Population Mean';
proc print label;
 var x;
proc univariate normal;
 var x;
run;