sub Carp::confess{
    warn Carp::shortmess(@_);
}
[...]
$template = new HTML::Template(filename          => $file . 'x', # gibt's nicht
		die_on_bad_params => 0);
unless(defined $template->{'options'}->{'filepath'}){
# error
}