Websurfer simulieren

Hi,

ich würde gerne eine Seite aufrufen, ein Eingabefeld in einem Formular
ausfüllen und auf einen Link klicken um das Formular abzuschicken, und
das Ganze mittels eines Perl-Skripts.

Meine CPAN-Suche lieferte LWP::UserAgent als möglichen Ansatz,
allerdings übergibt dieser die Formulardaten direkt mittels POST an das
angegebene Dokument.

Hier mein Ansatz, der jedoch mit der angegebenen Seite nicht funktionier:


#!/usr/bin/perl

my $URLtoPostTo =
"http://www.telering.at/Content.Node/mobil/wunschrufnummernr echner.php";
my %Fields = ("Snumber" => "1234567");

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

my $Browser = new LWP::UserAgent;
my $Page = $Browser->request(POST $URLtoPostTo,\%Fields);

my $needle = "Sorry";
my $haystack = $Page->content;

if ($haystack =~ m/$needle/) {
print "number is already in use";
} else {
print "error";
}


Wenn ich die Ausgabe in eine Datei umleite erkennt man, dass das
Formular wie gewünscht ausgefüllt wurde, allerdings wird es nicht
abgesendet. Es würde vermutlich funktionieren, wenn man dem Skript
beibringen könnte auf den Link "Nummer prüfen" zu klicken.

Kann mir bitte jemand dabei helfen das zu korrigieren?

TIA,
Michael.