use warnings;
use strict;

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

while (1) {
    print "Please continue with a new number:";
    my $new_number = <STDIN>;
    chomp $new_number;
    if ($new_number < $initial_number) {
        print "You specified a number which is smaller than the previous. The program will now exit\n";
        exit;
    }
    $initial_number = $new_number;
}