#!/usr/bin/perl

use LWP::Simple;
use LWP::UserAgent;

$ua = new LWP::UserAgent;
my $req = new HTTP::Request 'POST','http://www.ncbi.nlm.nih.gov/htbin-post/Entrez/query?uid=9254694&form=6&db=m&Dopt=r';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');

my $res = $ua->request($req);
print $res->as_string,"\n";