#!/usr/bin/perl -w
use strict;
use CGI;
print CGI->header(
   -nph =>1,
   -Referer => 'http://www.northwindtraders.com/login.html',
   -location => 'www.mydomain.com',
 );