use strict;
use warnings;
use HTTP::Cookies;    
use WWW::Mechanize;

my $cookie_jar = HTTP::Cookies->new();
my $your_url = 'http://url_to_loginpage.tld';
my $mech = WWW::Mechanize->new(-cookie_jar => $cookie_jar);

$mech->get( $your_url );
$mech->submit_form(
        form_number => 1, # wievieltes Formular ist das Login-Form
        fields      => {
            username    => 'mungo',
            password    => 'lost-and-alone',
        }
    );
print $mech->content(); #sollte von eingeloggter Seite sein...