Select Code to Download

use vars qw($foo);
{
...
}
$foo = 'bar';
xyzzy(); # Prints bar now.

{
    my $foo = 'foo';
...
}
my $foo = 'bar';
xyzzy(); # Prints the 'foo' that stayed shared.