use WWW::Mechanize;
use strict;


my $url = "http://reports.platou.com/FixtureReport/Pages/TankFixtures.aspx";
my $mech = WWW::Mechanize->new();
$mech->get($url);
my $content = $mech->content;
#print $content;
my $form = ( HTML::Form->parse( $mech->content, $url ) );
$form->action("${url}" );
my $req = HTTP::Request->new( GET => "${url}" );
my $res = $mech->request($req);
my @customer_text_inputs =$form->find_input();

my $ViewState = $customer_text_inputs[0]->value; 
my $Validation = $customer_text_inputs[1]->value; 
my $fromDate = $customer_text_inputs[2]->value; 
my $toDate = $customer_text_inputs[3]->value; 

$form->push_input("hidden",
            {
                value => "$ViewState",
                name  => '__VIEWSTATE'
            }
        );

        $form->push_input(
            "hidden",
            {
                value => "$Validation",
                name  => '__EVENTVALIDATION'
            }
        );

				
		$form->push_input(
            "List",
            {
                value => "09-07-2010",
                name  => 'ctl00$contentPlaceHolder$Fixtures$FromDateDropDown'
            }
        );

		$form->push_input(
            "List",
            {
                value => "09-07-2010",
                name  => 'ctl00$contentPlaceHolder$Fixtures$ToDateDropDown'
            }
        );

		
	
        $form->push_input( "hidden", { value => "%", name => "__LASTFOCUS" } );
        $form->push_input( "hidden", { value => '', name => "__EVENTTARGET" } );
        $form->push_input( "hidden", { value => "%", name => "__EVENTARGUMENT" } );
        $form->push_input( "hidden", { value => "true", name => "__ASYNCPOST" } );


$req = $mech->request($form->click());
print  $req->content;