Select Code to Download

no strict;
$foo = "Hello, world!\n";
$bar = "foo";
print $$bar;

use strict;
use Devel::Symdump;
...
my $dump = Devel::Symdump->rnew;
$parser->parse($wml);
print $dump->diff(Devel::Symdump->rnew);

        $ioref = *{$arg}{IO} if defined *{$arg};

        $ioref = *{$arg}{IO};