use Error;

my $tpl = ...; # HTML::Template

if($login_failed) {
   Error::raise(Error::LOGINFAILED, "Falsches Passwort");
}

Error::to_html_template($tpl);
print $tpl->output;