Select Code to Download

#!/usr/bin/perl -w 
use strict;

$addthis=join("", <TEXT>);

open (FILES,"files.txt") || die "Could not open file: $! \n";

for (<FILES>){
    chomp; # each item of the array is placed in $_ for the scope of t
+he for
    unless (open (D,$_)){ # no need to wrap the variable in quotes
...
    print D $newrecord;
    close (D)
}

#!/usr/bin/perl -w
use strict;
$someperl=<DATA>;
__DATA__
Some data