Select Code to Download

if( $num1 !~ /^\d+$/ )
   { warn "First value is not a number"; }
...
   { warn "Second value is not a number"; }
else
   { my $result = ( $num1 == $num2 ); }