Select Code to Download

package Before;
use Acme::Damn;
...
        };
    };
1;

$ perl -MBefore -e 'my $foo = bless(sub { print shift()."\n" } => 'Bef
+ore'); $foo->("foo"); $foo->("bar")'
Stuff before
foo
Stuff before
bar