>perl -e "use CGI qw( redirect ); print(redirect(-uri => 'http://www.example.com/page.html', -status => 301))"
Status: 301
Location: http://www.example.com/page.html


##</code><code>##

>perl -e "use CGI qw( redirect ); print(redirect(-uri => 'http://www.example.com/page.html', -status => 301, -nph => 1))"
HTTP/1.0 301
Server: cmdline
Status: 301
Date: Mon, 26 Mar 2007 15:59:21 GMT
Location: http://www.example.com/page.html