my $ua = LWP::UserAgent->new();
my $response = $ua->post(
  $url,
  {
   'field1'=>$data1,
   'field2'=>$data2,
   etc
  );

if ($response->is_success) {
  my $accepted = $response->content;
  #process data
} else {
  #error
}