#!/usr/bin/perl -w

use warnings;
use strict;
use WWW::Mechanize;

my $agent = WWW::Mechanize->new();
$agent -> agent_alias('Linux Mozilla');
#$agent -> agent_alias('Windows Mozilla')

$agent -> get ('http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?CMD=search&DB=pubmed/');
#$agent -> get ('http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&cmd=search&term=/');
my $html = $agent -> response()->content;
print "$html";