#!/usr/bin/perl -w
use strict;

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
my $q = CGI->new();
if ( $q->param('pass') eq "securityrisk" ){
    rename ("index.html", "old.html")     || die "Can't rename: $!";
    rename ("indexalt.htm", "index.html") || die "Can't rename: $!";
    print $q->header( -target   => 'ResultWindow',
                      -nhp      => 1,
                      -expires  => 'now',
                      -location => 'http://www.thenewest.org/'
                     );
}