#!/usr/bin/perl -w
use strict;
use Template;

...

my $template = Template->new( );
my $temp_data = {};
  # set variales for template
  ...              
# here is how I did for HTML::Template     
      #$template->param(my_date => $date);
      #$onscreen .= $template->output;
      
      # process template with tt
      $temp_data->{'my_date'} = $date;
      $template->process('screen.html', $temp_data, \$onscreen) || di
+e $template->error( );
...
      $onscreen .="</table>";