Select Code to Download

$ perl -MO=Deparse,-p -e 'sub a {} sub b {} a; b;'
sub a { }
...
sub a { }
sub b { }
a(b());