# get_scope.pl
use strict;
use Data::Dumper;
use Carp;
use WWW::Mechanize;
my $address = 'http://genie.dartmouth.edu/scope';
my $file = "ROX1.fasta";
my $email = 'myemail@gmail.com';
my $id = "ROX1 - Scope";
my $species = "S. cerevisiae";
my $mech = WWW::Mechanize->new();
$mech->get($address);
$mech->select( 'species', $species); # this doesn't work.
$mech->set_fields(
#'species' => $species, # this also won't work
# But the rest of these fields are recognized
'groupFile' => $file,
'emailAddress' => $email,
'emailSubject' => $id
);
$mech->submit;
my $result = $mech->content();
print "$result\n";
####
Input "species" not found at get_scope.pl line 22
####
##
SCOPE
