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