# 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";