print "Enter a number\n";
$num = <STDIN>; 
if ($num < 0)
{
   print "please enter a number that is between 0 and 9 \n";
   $num = <STDIN>;
}
 
                                                 		  #Get input from the keyboard
for($i=1;$i<=$num;$i++)						  #For loop to repeat a set of statements until a condition is met
{
	print $i;             

}

print "Press any key to exit";
$key = <STDIN>;
#End of Program