my $queryStr = "http://track.airborne.com/TrackByNbr.asp?txtTrackNbrs=$trackNo&hdnTrackMode=nbr&hdnPostType=init&hdnRefPage=0&hdnSent=false"; my $ua = new LWP::UserAgent; my $agent = "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)"; $ua->agent($agent); $ua->cookie_jar(HTTP::Cookies->new(file => "cookies.yum", autosave => 1)); my $req = new HTTP::Request POST=>$queryStr; $req->content_type('application/x-www-form-urlencoded'); my $res = $ua->request($req); if ($res->is_success) { my $response = $res->content; open (HTMLDUMP, ">$HTMLFile") || die "Could not create $HTMLFile - $!\n"; print HTMLDUMP $response; close (HTMLDUMP); } else { die "Something bad happened...\n"; }