# This is the my_end.pl library that is used by the 
# 'Teacher's Aide' sample application from Chapter 10.

sub end {
	my $error = shift;
	print header, start_html('Error');
	print <<HTML;
<H1>Error</h1>
The following error has occured in the application:
$error
</body>
</html>
HTML
	die("Application error: $error");
}