eval {die;};
if (my $e = $@) { # <--- secure...
	warn "Got the exception '$e'!";
	exit(0);
	}