Select Code to Download

use strict;
use warnings;

while (<>) {
    # the current line is in $_, 
    # the current filename in $ARGV
}