Select Code to Download

use Scalar::Util qw( dualvar );

...
my $foo = sensible();
print "Result = ", ''.$foo, "\n";   # Result = one
print "Result = ", 0+$foo,  "\n";   # Result = 1