#!/usr/bin/perl -w
use strict;
use HTTP::Cookies;
use LWP::UserAgent;
use URI::URL;
my $ua = LWP::UserAgent->new;
$ua->requests_redirectable ( ['GET', 'HEAD', 'POST'] );
my $cookie_jar = HTTP::Cookies->new; 
$ua->cookie_jar ($cookie_jar);
$ua->agent ("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"); # pretends to be IE6
my $url = url 'https://advertise.latimes.com/';
my $res = $ua->get($url);
print $res->is_success,"\n";
#$url = url 'https://advertise.latimes.com/portal/page/portal/LA%20Times';
$url = url 'https://advertise.latimes.com/portal/event/portal/LA%20Times?_pageid=273,1&_dad=portal&_schema=PORTAL&_portlet_ref=273_150732_273_1_1&_eventName_register=';
$res = $ua->get($url);
print $res->is_success,"\n";
print $res->content,"\n";