#!/usr/bin/perl -w 

require strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get("http://isiknowledge.com/?DestApp=WOS&Func=Frame");
$mech->follow_link(tag => 'frame', n => 2);
$mech->form_number(1);
$mech->click('General Search', [2,2]);
$mech->form_number(1);
$mech->field("topic","emergence AND complexity");
$mech->click();
$mech->form_number(1);
$mech->field('mark_from',1);
$mech->field('mark_to',500);
$mech->field('mark_selection','range');
my $res=$mech->click('Submit');
print $res->content;