use CGI;
print CGI->header(
  -nph =>1,
  -Referer => 'http://www.northwindtraders.com/login.html',
  -location => 'www.mydomain.com/foo/page.htm',
);
__END__
HTTP/1.0 200 OK
Server: cmdline
Date: Sat, 07 Mar 2009 15:38:40 GMT
Location: www.mydomain.com/foo/page.htm
Referer: http://www.northwindtraders.com/login.html
Content-Type: text/html