my $ua = new LWP::UserAgent;
$ua->agent("MudGuard/1.0");
$ua->timeout(600);
my $content = "user_name=user&user_password=pass";
my $contlen = length($content);
my $cookie_jar = HTTP::Cookies->new();
my $req = HTTP::Request->new("POST", "http://domain.de/login");
$req->header("content-length" => $contlen);
$req->header("content-type" => "application/x-www-form-urlencoded");
$req->header("content-encoding" => "iso-8859-1");
$req->content($content);
my $res = $ua->request($req);
$cookie_jar->extract_cookies($res);