#!C:\perl\bin\perl.exe -wT
use strict; 
use CGI qw/:standard/; 
my $cgi = new CGI; 
print $cgi->redirect( -uri => 'http://perl.about.com/' );
##</code><code>##

if ($match==1) {
	my $r=new CGI;
	print $r->redirect( -uri => 'http://perl.about.com/' );
} 

##</code><code>##

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/