use LWP::UserAgent;
my $url = "http://......"; 
my $UA = LWP::UserAgent->new();
my %fields = (mode => 'FEUR', nom => '2',
          m1 => $m1_string, m2 => $m2_string,
          pT => $anzpers, m1DP => '02',
          m1DO => '02', m2DP => '02', m2DO => '02');
my $res = $UA->post("$url", \%fields);
print $res->content();