#!/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";

$mech->get( $url, ":content_file"=>"c:\\temp.tmp");