use LWP::UserAgent;

my $url = 'http://www.somewhere.se/cgi-bin/myscript.pl';

my $ua = LWP::UserAgent->new();
$ua->agent("MyBrowser");

# Create HTTP POST request
my $request = HTTP::Request->new(POST => $url);
$request->content_type('multipart/mixed; boundary=--gc0p4Jq0M2Yt08jU534c0p');

$request->content('DataOne=A&DataTwo=1+&DataThree=20');

my $response = $ua->request($request);