#!/usr/bin/perl 
use strict;
use warnings;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new(autoclose => 0);
$mech->allow( javascript => 1 );
$mech->get("http://david.abcc.ncifcrf.gov/summary.jsp");
$mech->click({ xpath => ('//*[@href="Upload a Gene List or Population"]', single => 1), synchronize => 0 });
$mech->form_name('frmManager');
$mech->set_fields( 
	'pasteBox' => 	"RRI1, YLR149C, FUN19, YBR285W, ALD3, CUE5, RTC3, AIM3, YDL199C, FMP45, AST2, GIP2,
			YKL091C, YKL133C, GLG2, SYM1, VHS3, YJR124C, MCH1, MHO1, IKS1, RKM1, STF2, SAC1, ATG7, YAK1",	
	'Identifier' => "OFFICIAL_GENE_SYMBOL",
);
$mech->click ({ xpath => ('//input[@name="rbUploadType" and @value="list"]', single => 1), synchronize => 0 }); 
$mech->click({xpath => ('//*[@value="Submit List"]', single => 1), synchronize => 0});
$mech->back;