my $VAR1 = { 'apptimeupdated' => '20040315145142', 'apptype' => [{ 'apt_defstatus' => [{ 'name' => 'Pending', }], 'value' => '50', }], }; my $tmpl = HTML::Template->new(filehandle => \*DATA); $tmpl->param($VAR1); print $tmpl->output; __DATA__ #### my $VAR1 = { 'apptimeupdated' => '20040315145142', 'apptype' => { 'apt_defstatus' => { 'name' => 'Pending', }, 'value' => '50', }, }; my $tt = Template->new; $tt->process(\*DATA, $VAR1) || die $tt->error(); __DATA__ [% apptimeupdated %] [% apptype.value %] [% apptype.apt_defstatus.name %]