$ perl -wlne'eval;print$@if$@ # interactive perl'
use Scalar::Util 'dualvar';
$x = dualvar(256, sprintf "%x", 256);
print $x;
100
# correct hexadecimal string
print 0+$x;
256
# correct numeric value