my $url="http://www.foo.com";
my $t=1; # time until redirect activates
print "<META HTTP-EQUIV=refresh CONTENT=\"$t;URL=$url\">\n";

##</code><code>##

use CGI;
my $query=new CGI;
print $query->redirect('http://www.foo.com');