my $cookie_jar = HTTP::Cookies->new(
file => "expedia.cok",
        autosave => 1, );
my $browser = LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);
$browser->timeout(10);
$browser->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)');
        
my $response = $browser->get('http://www.expedia.de/pub/agent.dll?qscr=dspv&htid=558185&crti=3&date1=03.11.2006&date2=05.11.2006&BCheck=1,1024,768,32&zz=1161709983549');    
 
print $response->content;