#!/usr/bin/perl -w
use CGI;
my $q = CGI->new;
print $q->redirect('/');