Select Code to Download

  DB<100> sub tst {}
 => 0

$ perl -e 'use Data::Dumper; print Dumper eval "sub tst {}"'
$

$ perl -e 'use Data::Dumper; print Dumper eval "\$^D=\$^D;sub tst {}"'
$VAR1 = '0';

$evalarg = "\$^D = \$^D | \$DB::db_stop;\n$cmd";

$evalarg = "\$^D = \$^D | \$DB::db_stop;\ndo {$cmd}";

:~$ perl -e 'use Data::Dumper; print Dumper eval "\$^D=\$^D;do {sub ts
+t {}}"'
:~$