perl -MScalar::Util=isdual -MDevel::Peek \
   -e'$!=1; print("$!\n"); print(isdual($!)?1:0,"\n"); Dump($!);'