Select Code to Download

my $var = 4;
my $bar;
...

...
print $foo;

my $var = 4;
my $bar;
...
...
sub foo { ... }
print "bye\n";