use HTML::Template;
$template = new HTML::Template( '/path/to/template' );
$template->param( $_, $defaults{$_} )
  foreach( keys %defaults );
print $template->header(), $template->output(), "\n";