#!/bin/perl
#
$new_names = "New_Names.txt";
$welcome = "Welcome.shtml";
$temp = "Temp.txt";

#open(IN,"$new_names") || warn "Can't open $new_name for read: $!\n\n";
#chop(@files=<IN>);
#close IN;

open(WELCOME,"$welcome") || warn "Can't open $welcome for read: $!\n\n";
chop(@lines=<WELCOME>);
close WELCOME;

#foreach $file (@files) {
open(OUT,">$temp") || warn "Can't open $temp for write: $!\n\n";
 
foreach $L (@lines) {
	if ($L=~/html/) {
	  $L=~s/html/shtml/;
	} 
	print OUT "$L\n";
}
close OUT;

system "mv $temp $welcome";

exit;