use CGI qw/:standard/;
my $q = new CGI();
print $q->header;
print $q->start_html(-head=>meta({-http_equiv=>'Refresh',
                           -content=>'3,http://foo.com/'}));