use CGI;
use strict;

my $cgi = new CGI;

print	$cgi->header(),
	$cgi->start_html(),
	$cgi->start_form({
		-method	=> 'GET',
		-action	=> 'PUNS_addprimers_execute.cgi'
		}),
	$cgi->textfield('new_primer_type'),
	$cgi->submit('submit'),
	$cgi->end_form(),
	$cgi->end_html();

##</code><code>##

use WWW::Mechanize;
use strict;

my $mech = WWW::Mechanize->new();
my $url = 'http://x.x.x.x/cgi-bin/script.cgi;

$mech->get($url);
if (!$mech->success()) { die "Couldn't get page\n"; }

$mech->form_number(1);
if (!$mech->success()) { die "Couldn't set form\n"; }

$mech->field('new_primer_type', 'dummy1');
if (!$mech->success()) { die "Couldn't set type\n"; }

$mech->click('submit');

##</code><code>##

Unexpected field value http://x.x.x.x/cgi-bin/script.cgi at (eval 5) line 1