Select Code to Download

#!perl

...

my $b = new Bar;
$b->doBar(qw(i feel lucky));

use foo;
...
    my $foo = Foo->new;