POST vom Perl-Script mit LWP::UserAgent

[Beat]

if($error ne "") {

my $ua = LWP::UserAgent->new;
my $response = $ua->request(POST 'http://server.de/index.php?go=form', [error => $error]);

Hier holst du also Inhalt von der eigenen PHP Seite

print "Location: http://server.de/index.php?go=form\n\n";

Hier sendest du eine Redirekt Anweisung
und das Folgende ist...

print $response->as_string;

komplett irrelevant für den Browser.

mfg Beat