####
use LWP::Simple;
use HTTP::Cookies;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
my $ua = LWP::UserAgent->new;
my $url= 'http://www.ebi.ac.uk/arrayexpress/q-aer/leukemia%20Homo%20sapiens';
# Define user agent type
$ua->agent('Mozilla/8.0');
# Cookies
$ua->cookie_jar(
HTTP::Cookies->new(
file => 'mycookies.txt',
autosave => 1
)
);
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print $content