use HTTP::Request 1.30;
use LWP::UserAgent 2.003;
use HTML::Form 1.00;
use HTML::TokeParser;
use URI::URL;

##</code><code>##

  use HTTP::Request::Common;
  my $ua = LWP::UserAgent->new;
  $ua->request(POST 'http://somewhere/foo', [foo => bar, bar => foo]);