#!/usr/bin/perl

use CGI;

use strict;

my $q = CGI->new;

print $q->redirect('http://www.google.com');

1;