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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

for (<FILES>){
	chomp; # each item of the array is placed in $_ for the scope of the for
	unless (open (D,$_)){ # no need to wrap the variable in quotes
		print STDERR "$!:$_\n"; # In case the failure to read one file isn't critical
		next; # Skips all the other commands in the loop and goes to the next iteration.
	}
	my $newrecord=$addthis.join('',<D>);
	close(D);
	open (D,">$_") || die "Could not write to: $! \n";
	print "$_\n";
	print D $newrecord;
	close (D)
}

##</code><code>##

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