12/18/2002  11:02a      <DIR>          .
12/18/2002  11:02a      <DIR>          ..
12/18/2002  11:06a                 444 addtext.pl
12/18/2002  09:02a                   0 Fiduciary_Group.txt
12/18/2002  09:02a                   0 Nationwide_Group.txt
12/18/2002  09:02a                   0 Relius_Group.txt
12/18/2002  09:02a                   0 Sales_Group.txt
12/18/2002  11:02a                  74 WordProcessing_Group.txt

##</code><code>##

#!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