Select Code to Download

use autodie;
while (<>)
...
    next if /^\s*#/;
    ...;
}

my $EndOfInput = 0;
for my $file (@ARGV)
...
        }
    }
}