my $template;
eval {
  $template = HTML::Template->new(
    filename => $filename,
    %options,
  );
}; # eval

if ($@) {
  # fehlerbehandlung
}