use WWW::Mechanize;



my $mech = WWW::Mechanize->new( autocheck => 1 );
	
   $mech->get( "website" );
  
  
        $mech->field(username, beispiel);
        $mech->field( password, meinpasswort);