#!/usr/bin/perl
use strict;
use warnings;
    
use WWW::Mechanize;
    
my $mech = WWW::Mechanize->new();
my $url = "http://www.expedia.com/pub/agent.dll?qscr=fltw&rfrr=-1066&&zz=" .time() . "&";
    
print "[$url]\n";
    
$mech->add_header("Cookie" => "jscript=1");
$mech->get( $url, ":content_file"=>"c:\\temp.tmp");