use LWP;

my $browser = LWP::UserAgent->new();
my $url = q~http://www.handelsblatt.com/default.aspx?_p=73&wp1_symbol=MAN.FSE&wp1_t=wp1_quoteshistory~;
chomp( my $view = <DATA> );


my $seite = $browser->post(
$url,
{
'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Day' => '1',
'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Month' => '1', # Monat: Januar
'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Year' => '1998',
'ctl00$ctl00$ctl22$ctl00$ctl02$Txt_Time' => '23:59',
'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Lines' => '100',
'ctl00$ctl00$ctl22$ctl00$ctl02$DD_Step' => '2', # Darstellung: Tage
'__VIEWSTATE' => $view,
},
);

$seite = $seite->decoded_content;

$out = "MAN1.html";

open(OUT ,">$out") ||die ("Kann $out nicht oeffnen!!");


printf OUT ("$seite");


close (OUT);