#!C:\perl\bin\perl.exe -wT
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
print $cgi->redirect( -uri => 'http://perl.about.com/' );
####
if ($match==1) {
my $r=new CGI;
print $r->redirect( -uri => 'http://perl.about.com/' );
}
##
##
Got the following headers:
HTTP_REMOTE_USER: setheri
HTTP_HOST: localhost
HTTP_USER_AGENT: Fiddler
sid is setheri
Entering user test
Check of hash
sid2 is setheri
testing for existence
Item is setheri
we have a match
Status: 302 Found
Location: http://perl.about.com/