#!/usr/bin/perl -wT

##</code><code>##

sub diehtml {
	print start_html('Error processing order'), @_, end_html(), "\n";
	exit 1;
}