WWW::Mechanize [Perl]

use warnings;
use strict;
use WWW::Mechanize;

my $login='rene.nyffenegger@gmx.ch';
my $pw   ='******';

my $mech = WWW::Mechanize->new(agent=>'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');


# Login
$mech->get('http://www.gmx.ch');

$mech->form_name('login');
$mech->field('id', $login);
$mech->field('p' , $pw   );
$mech->click('submit');


# Ab 14.7 werden ....
# 
# angaben speichern und weiter
#
# print $mech->click() -> as_string;
#

# 
$mech->follow_link(text=>'Posteingang');