#!/usr/bin/perl use strict; use warnings; Foo->run(); package Foo; use HTML::Template; sub run { my @html = ; my $template = HTML::Template->new( arrayref => \@html, strict => 1, die_on_bad_params => 1 ); $template->param( VALUE => 'pick me - pick me!' ); print $template->output; } 1; __DATA__ #### pick me - pick me!