#! /usr/bin/perl -l
use strict;
use warnings;
use IO::Prompt::Hooked;
use Regexp::Common;

my %opt = (
        message  => "please enter a number: ",
        validate => qr/^$RE{num}{real}$/, 
        error    => "Input must be a number\n",
);

my $n1 = prompt(%opt);
my $n2 = prompt(%opt);

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