use strict;

use CGI;

my $q = CGI->new;
print $q->header( -type => 'text/html', 
                  -location => 'http://somewhere.com/' );

print "<h1>Here's some HTML.</h1>";