Select Code to Download

use warnings;

...
# Generates a warning that causes the handler to throw
# the error
if($string == 5) {print "Yep, \$string == 5\n"}

use Scalar::Util;
.
...
   $x > 0) {
   print "It's a positive number - not necessarily an integer";
}

use Scalar::Util;
.
...
   $x > 0 && $x == int($x)) {
   print "It's a positive integer";
}

use Scalar::Util;
use warnings;
...
Outputs:
5.0000000000000000000000000000001
looks like a positive integer