Thanks, this is the info that got me in the right direction and helped me the most!

#!/usr/bin/perl -w
#use strict; #had to remove
$SOURCEFILE="/abs/path/to/file/new.html";
# First read in the source file
use vars qw($sourcefile);
open(F,"< $SOURCEFILE")or die "Couldn't read '$SOURCEFILE': $!\n";
undef $/;
$sourcefile = <F>;
close(F) or die "Couldn't close '$SOURCEFILE': $!\n";
# Now walk the directory and replace the files.
opendir(D,".") or die "opendir error: $!\n";
while (my $f = readdir(D))
{
next if ($f =~ /^\./);
next unless (-f $f);
unless ($f =~ ".dat") {## I added this to ignore .dat files
open(F,"> $f")or die "Error overwriting '$f': $!\n";
print F $sourcefile;
close(F) or die "Error closing '$f': $!\n";
}
}
closedir(D) or die "closedir error: $!\n";
exit(0);

Thanks again...