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 $URL ="http://snp-nexus.org/index.html"; $browser->get($URL); $response = $browser->post( $URL, [ 'query'=>'dbsnp', 'dbsnp_id'=> 'rs111', 'ensembl'=> 'ensembl', 'refseq'=>'refseq', 'ucsc'=>'ucsc', 'sift'=>'sift', 'polyphen'=>'polyphen', 'chb'=>'chb', 'chd'=>'chd', 'tfbs'=>'tfbs', 'consv'=>'consv', 'gwas'=>'gwas', 'indel'=>'indel', 'mirbase' =>'mirbase', 'gad'=>'gad', 'cnp' => 'cnp', 'vcf'=>'txt', 'value'=>'Run', ] ); print $browser-> content();