Select Code to Download

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

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