#!c:\perl\perl.exe -wT

use strict;
use CGI;
use CGI::Carp qw( fatalsToBrowser );

my $q = new CGI;
my $url = "http://www.google.com";
print $q->redirect("$url");
print $q->header();