12/18/2002 11:02a
##
#!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