#!C:\Perl\bin\perl.exe
#Lou M 121702 @ GW
use warnings ;
use diagnostics ;
use strict ;

my $txt = "Windows 2000 SP3\nWindows Office XP\n" ;
foreach my $file (<*.txt>)	#For Each .txt file
				#in the directory 
				#this script runs from
{ 
	open ADDTO, ">> $file" or die "Can't open file: $!" ; 
}
				#Open all the .txt files
				#for appendding
print ADDTO $txt;		#Write the text
print "Done\n\n" ;		#Let the user know it is done