#!/usr/bin/perl
use CGI;
$query=new CGI;
print $query->redirect(-uri=>'http://www.yoursite.com', -nph=>1);

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print