#!d:\perl\bin\perl.exe -w

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use HTTP::Request::Common;
use HTTP::Cookies;
use HTTP::Headers;
use LWP;
use WWW::Mechanize;

print "Content-type: html; charset=UTF-8\n\n" ;

$proxy = 'http://localhost:5865'; 

$Skript = "http:\/\/$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}";
$Server = "http:\/\/$ENV{SERVER_NAME}";

my $browser = WWW::Mechanize->new();
$browser->agent('Mozilla/5.0');
$browser->proxy(['https', 'http', 'ftp'], $proxy);

$ENV{HTTPS_PROXY} = $proxy;	

$cookie_jar = new HTTP::Cookies();

$browser->cookie_jar($cookie_jar); #
$browser->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1; .NET CLR 2.0.50727)');
$browser->timeout(1200);
$browser->get("http://211.157.104.77:8080/sipo_EN/search/tabSearch.do?method=init"); #laedt Seitequelltext herunter
$page = $browser -> content; 

$jplatpatSession="";
if($page =~ /(jsessionid=[A-Z0-9]*)\">/si){$jplatpatSession = $1}

$base = "http://211.157.104.77:8080/sipo_EN/search/tabSearch.do;";
$browser->post($base.$jplatpatSession);
$browser->form_number(1); 
$browser->field("a", "103085931");
$browser->click(); #macht nichts?  absenden?