Got another one for ye great and mighty monks..

I'm working through my first implementation of cookies, and hitting a major snag, even though most of my code is straight out of the CGI Programming with Perl book. On my login page, the user puts in their username and password, and it sends to the primary CGI script. That authenticates the user, and if successful, tried to set a cookie, then verify that it's been set (using, as I said, code straight out of the book).

This step:

print $q->redirect ( -url    => "https://secure.domain.net/cgi-bin/coo
+kie_test.cgi",
                           -cookie => $cookieC
                           );
[download]

works, as does the rest of the program. In the browser, I see the cookie set attempt (using Mozilla, I purposefully deny the cookie without setting it to remember, so I can debug), but when it's given the redirect, it tries to download the cookie_test.cgi program instead of running it.

The cookie_test.cgi program:

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

Anyone know what's going on here?

Thanking you for your help (and your patience),

Spacewarp

DISCLAIMER:<BR>
Use of this advanced computing technology does not imply an endorsemen
+t<BR>
of Western industrial civilization.<BR>
[download]

Updated #! line per author's req. - dvergin 2003-06-08