#!/usr/bin/perl # coming to your CPAN mirror soon # http://www.pobox.com/~japhy/modules/ use DynScalar 'newTemplate'; use strict; use vars '$data'; # has to be package var my $template = newTemplate { my $out = << "END"; Hello, $data->{USER}. You've been here $data->{COUNT} times.

\n"; $out; }; $data = getInfo(magically_determine_user()); print HTML_page($template);