#!/usr/bin/perl

# where XXX etc replaced by machine's IP
if ($ENV{'REMOTE_ADDR'} eq 'XXX.XXX.XXX.XXX') {
  system('mv','-f','indexalt.htm','index.htm');
}
print "Location: /\n\n";
exit(0);