use strict;
use LWP::UserAgent;
use HTTP::Response;
use HTTP::Request;
use URI::Escape;

sub formular_senden {
     my ($url, $formular, $cookie) = @_; 
     my $ua = new LWP::UserAgent;
     $ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)"); #manche webserver blocken sonst
     my $content;
     $content .= $_.'='.uri_escape($formular->{$_}).'&' for (keys(%$formular));
     chop($content);
     my $request = new HTTP::Request('POST', $url);   
     $request->header('Cookie' => $cookie) if $cookie;
     $request->content($content);
     my $response = $ua->request($request);
     die ($respnse->error_as_HTML) if $response->is_error();
     $cookie = $response->header('Set-Cookie');
     #print $response->as_string();
     return $response->content(), $cookie;
}