#!/usr/bin/perl
use strict;
use warnings;

print "Please enter the first number: ";
chomp (my $n1=<>);

print "Please enter the second number: ";
chomp (my $n2=<>);

if ($n1 < $n2) {
    print "Output: $n1 $n2\n";
}
else {
    print "Output: $n2 $n1\n";
}

__END__

$ perl test.pl
Please enter the first number: 4
Please enter the second number: 5
Output: 4 5

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

print "Please enter the first number: ";
chomp (my $n1=<>);

die "Please enter numerical(s) characters only not '$n1'!"
    unless $n1 =~ /^\d+$/;

print "Please enter the second number: ";
chomp (my $n2=<>);

die "Please enter numerical(s) characters only not '$n2'!"
    unless $n2 =~ /^\d+$/;

if ($n1 < $n2) {
    print "Output: $n1 $n2\n";
}
else {
    print "Output: $n2 $n1\n";
}

__END__

$ perl test.pl
Please enter the first number: Test
Please enter numerical(s) characters only not 'Test'! at test.pl line 8, <> line 1.