use LWP::UserAgent;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new;
my $response = $ua->request(POST "http://tom.com", [form1 => value1, form2 => value2],
  Referer => 'http://bob.com/fun.htm');