#!/usr/bin/perl
print "Location: http://www.somewhere.com\n\n";
__END__

##</code><code>##

int main () {printf ("Location http://www.somewhere.com\n\n");}