#!/usr/local/bin/perl

open(INFILE,"find $. -name '*test*.html'  -print |") || die "Couldn't run
find: $!\n";
 
 FILE:		# loop label
 while ($filename = <INFILE>)  {
         chop $filename;
         if (!open (TEXTFILE, $filename))   {
                 print STDERR "Can't open $filename - - continuing...\n";
                 next FILE;  # back to start of loop, grab next filename
         }
         else    {

	#foreach $line (@file)
	#{
		$line=~s/<body/<test/gi;

	#	print NewFile "$line";
	#}

      }
 }   # end while loop