Select Code to Download

my $DEBUG;
BEGIN { $DEBUG = $ARGV[0]; }
...
#     end of this block (namely
#     until the end of the file).
print($test);   # strict error if $DEBUG

my $DEBUG;
BEGIN {
...
#     end of this block (namely
#     until the end of the file).
print($test);   # strict error if $DEBUG

my $DEBUG;
BEGIN {
...
   }
}
print($test);   # No strict error