Select Code to Download

use Data::Dumper;
$Data::Dumper::Deparse = 1;
...
print "foo is a coderef $foo returning ".$foo->()."\n";
$d->Seen ({$foo => $foo->()});
print $d->Dump();

foo is a coderef CODE(0x801734) returning ARRAY(0x801944)
$VAR1 = {
...
                               return [];
                           }
        };