Select Code to Download

my $foo = 'bar';

#!/usr/bin/perl
use strict;
...
foo();

print $bar; # error

#!/usr/bin/perl
use strict;
...
foo();

print $bar; # prints 'qux'