▼以下のように改造（835行目あたり）

# [エラー処理]
#
sub er_ {
if (-e $lockfile) { unlink($lockfile); }
	&hed_("Error");
	print "□<a href=\"JavaScript:history.back()\">BACK</a>\n";
	print "<hr>\n";
	print "<center>ERROR - $_[0]</center><br>\n";
	&foot_;
}