use WWW::Mechanize;
use Data::Dumper;
use Crypt::SSLeay;

my $mech = WWW::Mechanize->new();

$mech->get( 'https://www.zentrada.de/login/' );
$mech->form_number(2);

$mech->field('ff_email', 'xxx@gmx.de');

$mech->field( 'ff_passwort' , 'asdf!&§');

$response = $mech->submit();

if ($response->is_success) {
	print $response->decoded_content;
}
else {
	print STDERR $response->status_line, "\n";
}