use CGI ();
print CGI::redirect( -status => 301,
                     -url => "http://192.168.1.3" );
##</code><code>##

moo@cow[167]~/bin>perl pm-730807-demo-code
Status: 301
Location: http://192.168.1.3


##</code><code>##

redirect 301 /old http://192.168.1.3/new