!#/usr/bin/perl -wT

#  !/usr/bin/perl -wT     # Originally posted typo-ed first line

# Cookie Test Program for Control Panel Administration

use strict;
use CGI;

$ENV{PATH} = "/bin:/usr/bin";
delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };

my $q = new CGI;

my $sessionid = $q->cookie( -name => "C" );

if ( defined $sessionid ) {
   print "Location: https://secure.domain.net/cgi-bin/ctladm.cgi\n\n";
}
else {

print <<AAA;
Content-type: text/html

### Html error message cut out ###
AAA
;
}

exit;