#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;

my $start_url = 'http://www.start_url.gt';
my $loginUrl = "https://www.hallo_welt.gt/login.do";
my ($mech,$response,$data);

$mech = WWW::Mechanize -> new ( quiet => 1 );
$response = $mech -> get ($loginUrl);
if (defined $response) {
	$data = $response -> content;
	$response = $mech -> form_number (1);
	$mech -> field ('userName','username');
	$mech -> field ('password','password');
	# usw. für jedes Feld
	$response = $mech -> submit_form ();
	if (defined $response) {
		$data = $response -> content;
		$response = $mech -> get ($start_url);
		if (defined $response) {
			$data = $response -> content;
			print "Bin drin:\n*****\n$data\n*****\n";
		}
		else {
			die "Bekomme die Start-URL nicht\n";
		}
	}
	else {
		die "Login fehlgeschlagen!\n";
	}
}
else {
	die "$start_url ist nicht erreichbar\n";
}