$endthis = 0;
...
$endthis = 1;
exit;
END {
	if ($endthis == 0) {
    open(THEND,">ABORTED");
	  close(THEND);
	}
}