local $/ = undef;
my $template = load_page(\<DATA>);
sub load_page {
    my $stuff = shift;
    HTML::Template->new(scalarref => $stuff);
}