$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)');

#!C:/Perl/bin/perl.exe

use LWP::UserAgent;
$UserAgent = LWP::UserAgent->new;

my $request = HTTP::Request->new(POST => 'http://www.ogame105.de/game/flotten1.php?session=e679b283afa6'); #Das Formular
$request->content_type('application/x-www-form-urlencoded');
$request->content('maxship210=3&consumption210=1&speed210=160000000&capacity210=5&ship210=1'); #Die Paramter

my $response = $UserAgent->request($request);  #Request
print $response->as_string; #Wenn ich das richtig verstehe wird hier die Antwort geprintet???
print "\nFertig!"; #Bestätigung
<>;

my $response = $UserAgent->request($request);  #Request
if ($response->is_success) {
     print $response->content;  # or whatever
}
else {
     die $response->status_line;
}

#!C:/Perl/bin/perl.exe

#!/usr/bin/perl

#Sehr viele Parameter....
#-------------------------------------
$parameter = "thisgalaxy=2&thissystem=328&thisplanet=6&thisplanettype=1&speedfactor=1&thisresource1=$metall&thisresource2=$kristall&thisresource3=$deuterium&galaxy=2&system=321&planet=7&planettype=1&ship210=1&consumption210=1&speed210=160000000&capacity210=5&speed=10&order=6&resource1=0&resource2=0&resource3=0";

#------------------------------------------------------

$request->content("$parameter");
$response = $UserAgent->request($request);
$file = $response->content;
print "\n$file";     #Anderst als der Quelltext im IE