# 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();
##</code><code>##

Did not see the 'Pick Primers' query parameter at /usr/local/apache2/cgi-bin/primer3/primer3_www_results.cgi line 117
        main::main() called at /usr/local/apache2/cgi-bin/primer3/primer3_www_results.cgi line 105
##</code><code>##

  if ($query->param('Pick Primers')) {
      process_input($query);
  } else {
      confess "Did not see the 'Pick Primers' query parameter"
  }