Select Code to Download

use Data::Dumper;
$Data::Dumper::Deparse = 1;
...
}

foo(42);

$ ./895386.pl
foo called with 42
...
            print "going to call bar()...\n";
            bar();
        };