use WWW::Mechanize;
use HTML::Form;
my $mech = WWW::Mechanize->new( autocheck => 1 );

my $response = $mech->get( "http://www.seite.de" );

$mech->submit_form(
        form_number => 1,
        fields      => {
            Name123    => 'User',
            PW123    => '12345',
        }
    );
 

open (AUSGABE, ">dump.htm");
print AUSGABE $mech->content;
close (AUSGABE);
	
exit;