#!/usr/bin/perl
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

open(INFILE,"idlist");
$ids=<INFILE>;
$size=@files;
for($i=0;$i<$size;$i++)
{
        $mech->get("http://www.arabidopsis.org/");
        $mech->form_name("search_textbox_form");
        $mech->field("name",$ids[$i]);
        $mech->select("sub_type","protein");
        print $ids[$i];
        $mech->submit();
        open(OUTFILE,">>arabidopsis_output");
        printf OUTFILE $mech->content();
        close(OUTFILE);
}