#!/usr/bin/perl -w 
require strict;

use lib '/home/visitors/seaver/modules/lib/perl5/site_perl/5.6.1';

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get("http://isiknowledge.com/?DestApp=WOS&Func=Frame");
$mech->follow_link(tag => 'frame', n => 2);
$mech->click('General Search', [2,2]);
$mech->field("topic","emergence AND complexity");
$mech->click();
$sid = $mech->value('SID');
{
    local $^W = 0;
    $mech->field('SID',$sid);
}
$mech->click_button(name=>'Submit');
print $mech->content;