# URL for primer3
my $url = 'http://frodo.wi.mit.edu/cgi-bin/primer3/primer3_www.cgi';

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

$mech->get($url);

# set up input to form
$mech->field('SEQUENCE','ACAGCNTCTGTTGACTCCCCTGCCAGCAAGCCCACTGGCCTGAGCACATGAAGTCCTGCACCCAGTCAGGAGAAGGAGCGCTCCTGGCACCAGCAGGAGCTGGCAAAGGCTCTGGAGAGCTTAGAAAGGGAAAAAATGGAGCTGGAAATGAGGCTAAAGGAGCAGCAGACAGAAATGGAGGCCATCCAGGCCCAGAGGGAAGAAGAACGGACCCAGGCAGAGAGTGCCCTATGCCAGATGCAGCTGGAAACAGAGAAGGAGAGAGTATCCCTCCTGGAGACACTGCTGCAGACGCAGAAGGAGCTAGCAGATGCCAGCCAACAACTGGACGGAACTGAGGCAA');
$mech->field('PRIMER_NUM_RETURN',1);

# just for debugging purposes
print $mech->content();

# Get response by clicking submit button
my $resp = $mech->click('Pick Primers');

print "\n\n******* AND Response *********\n\n";
print $resp->content();