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