Help for this page
use base 'TheLib::Foo'; ... print $cookie2;}} 1;
use HTTP::Template; sub my_infosheet { my $self = shift; my $template = $self->load_tmpl('my_infosheet'); (undef, my $info) = split(/\//, $ENV{'PATH_INFO'});
$template->param(COOKIE1 => $cookie1); $template->param(COOKIE2 => $cookie2); return $template->output; }