sub error {
    my (@msgs) = @_;
    my $firstline = shift(@msgs);
    if (!$q->{header_was_sent}) {
	print
	    $q->header(), 
	    $q->start_html(-title=>"R3: error", -style=>{-code=>&css()});
    }
    print

	"<br><marquee><font class=\"error\"> Need help?  Something busted? Confused?  Email the error message below to XXXXXXXXXXXXXXX </font></marquee><br>",
	"<h1 class=\"error\"> Error: $firstline </h1><h2 class=\"error\">",
	scalar(localtime), "<br>",
	join ("<br>",@msgs), "</h2>\n";
    print $q->end_html;
    exit(0);
}