my $f = HTTP::Request::Form->new($forms[0], $wosURL);
my $boo = $f->press("General Search");
print $boo->as_string;

##</code><code>##

POST http://wos4.isiknowledge.com/CIW.cgi
Content-Length: 227
Content-Type: application/x-www-form-urlencoded

Func=Search&Form=HomePage&SID=QVhJgArh%40WcAACmJAys&topic=Enter+a+topic&editions=H&editions=H&editions=H&Period=Year+Range&week_selection=LatestWeek&years=2004&start_year=1955&end_year=2004&General+Search.x=2&General+Search.y=2

##</code><code>##

my $request = POST 'http://wos4.isiknowledge.com/CIW.cgi', 
		    [Func => 'Search',
		     Form => 'HomePage',
		     SID => $sid,
		     topic => 'Enter a topic',
		     editions => [qw( D A H )],
		     Period => 'Year Range',
		     week_selection => 'LatestWeek',
		     years => 2004,
		     start_year => 1955,
		     end_year => 2004,
		     'General Search.x' => 2,
		     'General Search.y' => 2];

print $request->as_string();

##</code><code>##

POST http://wos4.isiknowledge.com/CIW.cgi
Content-Length: 227
Content-Type: application/x-www-form-urlencoded

Func=Search&Form=HomePage&SID=QVhJfQrh%40WcAABfkZ3c&topic=Enter+a+topic&editions=D&editions=A&editions=H&Period=Year+Range&week_selection=LatestWeek&years=2004&start_year=1955&end_year=2004&General+Search.x=2&General+Search.y=2