use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $tf_add = "http://rulai.cshl.edu/cgi-bin/SCPD/getgene2?ARG1";
$mech->get($tf_add);
$mech->set_fields( 'start' => -450, 'end' => 50 ); # this part works
# but not this:
$mech->click_button(
name => "action",
value => "Retrieve sequence"
);
$mech->submit();
my $result = $mech->content();
print "$result\n";
####
ARG1
ARG1
ORF YOL058W
GENE ARG1
XX
FACTOR ARC
COORDINATE (-269, -247)
SEQUENCE CATTTAAAGGCAGGAGAGAGAGA
REFERENCE Yeast 1995, 11:1367-1380
.... skip some entries...
####
ARG1
ARG1
>YOL058W ARG1 218759 219259
CGAGCTTTTTCACTGCAGTAATTCTCCACATGGGCCCAGCCACTGAGATA
AGAGCGCTATGTTAGTCACTACTGACGGCTCTCCAGTCATTTATGTGATT
TTTTAGTGACTCATGTCGCATTTGGCCCGTTTTTTTCCGCTGTCGCAACC
TATTTCCATTAACGGTGCCGTATGGAAGAGTCATTTAAAGGCAGGAGAGA
GAGATTACTCATCTTCATTGGATCAGATTGATGACTGCGTACGGCAGATA
GTGTAATCTGAGCAGTTGCGAGACCCAGACTGGCACTGTCTCAATAGTAT
ATTAATGGGCATACATTCGTACTCCCTTGTTCTTGCCCACAGTTCTCTCT
CTCTTTACTTCTTGTATCTTGTCTCCCCATTGTGCAGCGATAAGGAACAT
TGTTCTAATATACACGGATACAAAAGAAATACACATAATTGCATAAAATA
ATGTCTAAGGGAAAAGTTTGTTTGGCTTATTCTGGTGGTTTAGATACCTC