#!/usr/local/bin/perl/perl
#
# copies *.sshtml* to *.shtml*

system "ls *.sshtml > abcd";
open(IN,"abcd") || die "Can't open abcd for read: $!\n\n";
chop(@f=<IN>);
close IN;

foreach $L (@f)
{
 @g=split("sshtml",$L);
 $name = "@g[0]" . "shtml";
 $name_bak = "$name\.BAK";
 printf "$name\t$name_bak\n";
 system "cp $L $name";
 system "cp $name $name_bak";
}
 
exit;