$page=$ENV{'REQUEST_URI'};
   if ($page =~ /a\.html/) { $p="a.shtml"; }
elsif ($page =~ /b\.html/) { $p="b.shtml"; }
elsif ($page =~ /c\.html/) { $p="c.shtml"; }
elsif ($page =~ /d\.html/) { $p="d.shtml"; }
else { print header( -Refresh => "5; URL=http://foobar.com");
if ($p) { print header; printnewsite(2, $p); } else
{ printnewsite(1); }