#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;	# Benutze 1.58 auf Strawberry 5.10.1

my $start_url = 'http://www.url.de/testform.html';	# <= Bitte anpassen!!
my ($mech,$response,$data);

$mech = WWW::Mechanize -> new ( quiet => 1 );
$response = $mech -> get ($start_url);
if (defined $response) {
	$data = $response -> content;
	$response = $mech -> form_number (1);
	$mech -> field ('testtext1','test1');
	$mech -> field ('testtext2','test2');
	# usw. für jedes Feld
	$response = $mech -> submit_form ();
	if (defined $response) {
		$data = $response -> content;
		print "Bin drin:\n*****\n$data\n*****\n";
	}
	else {
		die "Submit fehlgeschlagen!\n";
	}
}
else {
	die "$start_url ist nicht erreichbar\n";
}