Select Code to Download

$/ = \ 4096; # read in 4Kb blocks

...
        print OUTFILE1;
    }
}

{
    local @ARGV = @filenames;
...
        print OUTFILE1;
    }
}