# Formular mit Namen T1 selektieren
$mech->form_name('T1');    

# alle Eingabefelder außer F2 extrahieren
$mech->form_name('T1')->{'inputs'} = 
    [ 
        grep 
        { 
            $_->name ne 'F2'
        } 
        ( $mech->form_name('T1')->inputs ) 
    ];

# Eingabefeld F1 mit gewünschtem Wert besetzen
$mech->form_name('T1')->value('F1',42); 

# absenden
$mech->submit();