#!/usr/bin/perl

use warnings;
use strict;
print "Location:http://www.perlmonks.org/\n\n";

##</code><code>##

print "HTTP/1.1 302 Moved\n";

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $q = new CGI;
print $q->redirect( -uri => 'http://www.perlmonks.org/' );

##</code><code>##

Status: 302 Moved
location: http://www.perlmonks.org/