# code to open ERRLOG here
eval {
	die "There's no way around this!";
};

if ($@) {
	print ERRLOG "Caught: $@!\n";
}