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

use CGI qw/:standard/;

use CGI::Carp qw/fatalsToBrowser /;

my $q = CGI->new();

my $pass = $q->param('pass');
   if ($pass ne "securityrisk"){
   	die;
   } else {
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/');
   }