$ perl -MScalar::Util=isdual -E'
   $x=1; say isdual($x)?1:0;
   "$x"; say isdual($x)?1:0;
'
0
1