sub cookies {
my $self = shift;
my $cookies = CGI->new
my $thetemplate = $self->load_tmpl('theform.html');
$cookies1 = $cookies{'AnyName1'}->value;
$cookies2 = $cookies{'AnyName2'}->value;
$template->param(COOKIE1 => $cookies1);
$template->param(COOKIE2 => $cookies2);

); }