use CGI qw/:standard/;
use strict;

my $cgi = new CGI;

my $species = param('species');
$species = 'Not Rat';

print
	$cgi->header(),
	$cgi->start_html(),
	$species,
	$cgi->hidden(
		-name	=> 'species',
		-default=> $species,
		),
	$cgi->end_html();