#!/usr/bin/perl -wT

use strict;
use CGI;

my $query	= $ENV{'QUERY_STRING'};
my $q		= new CGI;
my $cookie	= $q->cookie ( "mst3k" );
my @args	= split(/&/,$query);


if ( defined $cookie ) {
 my $cookie	= $q->cookie(   -name => "mst3k",
				-value => !$cookie,
				-domain => ".yikes.com",
				-expires => "+1M",
				-path => "/~pengo",
				-secure => 0);
 print $q->redirect ($args[0], -cookie => $cookie);
}
else {
 my $cookie	= $q->cookie(   -name => "mst3k",
				-value => 1,
				-domain => ".yikes.com",
				-expires => "+1M",
				-path => "/~pengo",
				-secure => 0);
 print $q->redirect ($args[0], -cookie => $cookie);
}