Select Code to Download

$ perl -wMstrict -MDevel::Peek -le 'my $x="11a"; $SIG{__WARN__}
       = sub{$x="99"}; print "num: ",$x+0,", str: $x"; Dump($x)'
...
  CUR = 2
  LEN = 10
  COW_REFCNT = 1

$ perl -wMstrict -MDevel::Peek -MScalar::Util=dualvar
                 -e 'my $x=dualvar(11,"99"); Dump($x)'