$ perl -MCGI=:standard -e 'print redirect("http://foo")'
(offline mode: enter name=value pairs on standard input)
Status: 302 Moved
Location: http://foo



##</code><code>##

use CGI qw/:standard/;
print redirect("http://foo");