#/usr/bin/perl -w

use WWW::Mechanize::Firefox;
  my $moz = WWW::Mechanize::Firefox->new();
  $moz->get($url);

$url='http://www.informatics.jax.org/javawi2/servlet/WIFetch?page=snpQF';
$form_name1='queryForm';

$strain='availableStrains';
@strvalues=("15","38048","71","25292");
$variation='polymorphismType';
$varvalue='1878510';
$func_class='functionClass';
$funcvalue='1878486';
$output='format';
$outformat='tab';

$moz->get( $url );

$moz->form_name( $form_name1 );
$moz->select($strain,\@strvalues);
sleep 1;

$moz->click({ xpath => '//*[@value=">>"]' });

$moz->select($variation,$varvalue);

$moz->select($func_class,$funcvalue);

$moz->set_fields(
        geneSymname => 'chrnb2'
    );

$moz->select($output,$outformat);

sleep 1;

$moz->click_button( value => 'Search' );

($url2) = $mech -> uri;
$content=get($url2);
print $content,"\n";

exit;