01: use WWW::Mechanize; 
02: use LWP::Debug qw(+); 
03: 
04: $username = "xxx"; 
05: $password = "xxx"; 
06: 
07: my $mech = WWW::Mechanize->new(); 
08: 
09:    $mech->cookie_jar(HTTP::Cookies->new()); 
10:    $mech->get( "https://mySite.de/admin" ); 
11:     
12:    #Get ADMIN-ID 
13:    $mech->content() =~ /name=\"ADMIN\" value=\"([^\"]+)/g; 
14:    $hiddenField = $1; 
15:        
16:    #Fill form 
17:    $mech->submit_form( 
18:                  form_name => "action", 
19:                    fields      => { 
20:                      ADMIN => $hiddenField, 
21:                      username   => $username, 
22:                      password => $password}, 
23:                    button => 'login'); 
24: 
25:     #Print site            
26:    print $mech->content(); 
27: