print "Please give me a number:\n";
my $initial_number = <STDIN>;
chomp $initial_number;

print "Give me another number:\n";
my $new_number = <STDIN>;
if($new_number>=$initial_number)
{
	print "Please continue with a new number:";
}

else
{
	print "You specified a number which is smaller than the previous. The program will now exit\n";
	exit;
}