use Template; use CGI qw/:standard -debug/; # Present form for data entry my $template = Template->new(); my $vars = ""; # no vars in this template print header; $template->process("my-Template-filename.tmpl", $vars) || &error( "Template process failed: ", $template->error() ); # my predefined error function