use CGI;
print CGI->new->redirect('http://www.google.com');

# or
use CGI;
print CGI::redirect('http://www.google.com');

# or (what I'd probably use)
use CGI "redirect";
print redirect('http://www.google.com');