<start_html title="Error">
<form>
<submit name="Error" value="Click here for error !">
</form>
<perl method="foo"/><end_html>

__PERL__

sub foo {

	&bar() || return err();
	\undef;

}

sub bar {

	return err('bang !') if $_{'Error'};
	\undef;
}