use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("yourownnavigator/0.1 ");
my $req = new HTTP::Request POST => 'http://www.yoursite.com/yourpage.pl';
$req->header(Referer => 'http://www.yourothersite.com/default.pl');
my $res = $ua->request($req);
if ($res->is_success) {
      print $res->content;
}

##</code><code>##

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