Select Code to Download

print "Content-type: text/html\n\n<p>error</p>";

sub finalize_error {
    my ( $self, $c ) = @_;
...
    $c->res->status(500);

}