use warnings;
use strict;
use WWW::Mechanize;


my $genome_file = $ARGV[0];


my $agent = WWW::Mechanize->new();
my $url = "http://linux1.softberry.com/berry.phtml?topic=fgenesb&group=programs&subgroup=gfindb";
my $results = $agent->get($url);
die "GET failed" unless $results->is_success;

#$agent->dump_forms();

my $form1 = $agent->form_name("FILE"); die unless $form1->success;
my $form1_info = $agent->field("FILE", $genome_file); die unless $form1_info->is_success;
$agent->select();



$agent->form_name('org');
$agent->field("option", "ARCHAE BACTERIAL generic");
$agent->click();

$agent->form_name('Process');