#!/usr/bin/perl
use warnings; use strict;
use HTML::Template;
#------------
package Page;

use base 'HTML::Template';

sub new {
  my $self = shift;
  my %args = @_;

  $self->SUPER::new(%args);
}
#------------
package main;

my $template = Page->new(filehandle => *DATA)
   || die "Unable to open template";
$template->param(orb => 'world');
print $template->output;
__DATA__
hello <TMPL_VAR orb>