<td class="wp1-cdl-form">

<input type="image" name="ctl00$ctl00$ctl22$ctl00$ctl02$IBtn_Refresh1" id="ctl00_ctl00_ctl22_ctl00_ctl02_IBtn_Refresh1" title="Aktualisieren" src="http://www.handelsblatt.com/images/buttons/bt_aendern.gif" alt="Aktualisieren" style="border-width:0px;" />

</td>

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~;


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);