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;

<script type="text/javascript">
<!--
        var d, u, s;
        d = new Date();
        s = ","+screen.width+","+screen.height+","+screen.colorDepth;
        u = "/pub/agent.dll?qscr=dspv&htid=558185&crti=3&date1=.11.&date2=.11.&zz=1161709983549&&BCheck=1"+s+" 
&zz="+d.getTime();



        function SubmitPage()
        {
        if( window.navigator.cookieEnabled )
        document.cookie = "jscript=1; path=/;";

        window.location.replace(u);
        }
//-->