print $q->redirect ( -url    => "https://secure.domain.net/cgi-bin/cookie_test.cgi",
                           -cookie => $cookieC
                           );


##</code><code>##

!#/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;


##</code><code>##

DISCLAIMER:<BR>
Use of this advanced computing technology does not imply an endorsement<BR>
of Western industrial civilization.<BR>