use LWP::UserAgent; 
$ua = LWP::UserAgent->new; 
$ua->agent('Mozilla/4.0');
use HTTP::Request::Common qw(POST); 
push @{ $ua->requests_redirectable }, 'POST'; #change default setting 
my $req = POST( 'http://some.com',
                 Content_Type => 'multipart/form-data'
              , Content      => [ para1=> "value"]);
$response = $ua->request($req);