use strict;
use warnings;

use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use HTML::Parser;
use autodie qw/ open close /;
use 5.012;


my $browser =  WWW::Mechanize->new(autocheck => 1);
my $formfiller = WWW::Mechanize::FormFiller->new();
my $snp = "rs111";
my $response;
my $resp;
$browser->get("http://snp-nexus.org/index.html");

$browser->form_name ('snpnexus');

$browser->select('query', 'dbsnp');
$browser->field('dbsnp_id', 'rs111');
$browser->tick('ensembl', "ensembl");
$browser->tick('refseq','refseq');
$browser->tick('ucsc','ucsc');
$browser->tick("sift",'sift');
$browser->tick("polyphen",'polyphen');
$browser->tick("chb",'chb');
$browser->tick("chd",'chd');
$browser->tick("tfbs",'tfbs');
$browser->tick("consv",'consv');
$browser->tick("gwas",'gwas');
$browser->tick("indel",'indel');
$browser->tick("mirbase" ,'mirbase');
$browser->tick('gad','gad');
$browser->tick('cnp' , 'cnp' );

$browser->submit('snpnexus','Run');