#bis hierhin wie oben
use URI::Escape;
$browser->get("http://211.157.104.77:8080/sipo_EN/search/tabSearch.do?method=init"); #laedt Seitequelltext herunter
$page = $browser -> content;
 
$jsessionID="";
if($page =~ /(jsessionid=[A-Z0-9]*)\">/si){$jsessionID = $1}
 
$request_params_0 = ''.                                            
               'method=search&'.
               'sortfiled=PublicationNumber&'.
               'sorttype=+&'.
               'dbfm=on&'.
               'dbxx=on&'.
               'a=103085931"'.
               'b=&'.
               'c=&'.
               'd=&'.
               'e=&'.
               'f=&'.
               'g=&'.
               'h=&'.
               'i=&'.
               'j=&'.
               'k=&'.
               'l=&'.
               'm=&'.
               'logicExp=';
 
$request_params = uri_escape($request_params_0); #nötig?
              
$base = "http://211.157.104.77:8080/sipo_EN/search/tabSearch.do;";   
              
$request = HTTP::Request->new('POST',$base);
$request->header('Content-Type' => 'application/x-www-form-urlencoded');
$request->header('Content-Length' =>'114');
$request->header('Transfer-Encoding'=>'chunked');
$request->header('Referer' => 'http://211.157.104.77:8080/sipo_EN/search/tabSearch.do?method=init');
$request->header('Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
#$request->header('Accept-Language'=>'de,en-US;q=0.7,en;q=0.3');
 
$request->header('Accept-encoding' => 'gzip, deflate');
$request->header('Connection' => 'keep-alive');
$request->header('Cookie' => 'JSESSIONID='.$jsessionID); #richtig so?
$request->content($request_params);
$response = $browser->request($request); #Zeile wirft einen Fehler
$page = $response->decoded_content();
print $page;