use base 'TheLib::Foo';

sub cookie1 : Runmode {
$cgi_query = new CGI;
$cookie1 = $cgi_query->cookie('sessioninfo');
{
our $cookie1;
print $cookie1;}}

sub cookie2 : Runmode {
$cgi_query = new CGI;
$cookie2 = $cgi_query->cookie('visitcount');
{
our $cookie2;
print $cookie2;}}

1;
##</code><code>##

use HTTP::Template;

sub my_infosheet {
my $self = shift;
my $template = $self->load_tmpl('my_infosheet');
(undef, my $info) = split(/\//, $ENV{'PATH_INFO'});

##</code><code>##

$template->param(COOKIE1 => $cookie1);
$template->param(COOKIE2 => $cookie2);
return $template->output;
}