my $a = WWW::Mechanize->new(); 
     my $url = "http://......"; 
     $a->get( $url );    
     $a->submit_form
     (
        'form_name' => 'SBform', 
    'fields' => 
    {
    'mode'    => 'FEUR',
    'nom' => '2',
    'm1' => $m1_string,
    'm2' => $m2_string,
        'pT' => $anzpers,
    'm1DP' => '02',
    'm1DO' => '02',
    'm2DP' => '02',
    'm2DO' => '02',
        }
     );
     print $a->content();