Select Code to Download

>perl -le"package PkgA; my $foo = 'abc'; package PkgB; print $foo"
abc

my $stuff1;
my $stuff2 = undef;
...
print "stuff 2: $stuff2\n";
print "stuff 3: $stuff3\n";
print "stuff 4: $stuff4\n";

my $stuff1 = 'stuff1 stuff';
my $stuff2 = 'stuff2 stuff';
...
print "stuff 2: $stuff2\n";
print "stuff 3: $stuff3\n";
print "stuff 4: $stuff4\n";

my $stuff1;
my $stuff2;
...
print "stuff 2: $stuff2\n";
print "stuff 3: $stuff3\n";
print "stuff 4: $stuff4\n";

my $stuff;
BEGIN {
...
   ...
   ...
}

my $stuff;
BEGIN {
...
   ...
   ...
}