Select Code to Download

#!/usr/bin/perl
use warnings; use strict;
...

my ($result) = something(qw/foo bar/);
print "result: $result\n";

installing log handler for main::something at log.pl line 13.
BEGIN sub block...main::something
...
END sub block...main::something

result: 42