my $first_time = 1;
my @signals = qw/INT TERM USR2 HUP/;
for my $sig (@signals) {
	$SIG{$sig} = sub {
		if ($first_time) {
			$first_time = 0;
			exit(1); # we need exit, it will call all destructors which will destroy tempfiles
		}
	}; 
}
dump_error() unless (defined eval {do_work(); 1; });
$SIG{$_} = 'IGNORE' for (@signals); # THIS CAN BE REMOVED - RESULT IS SAME
kill(POSIX::SIGUSR1, $parent_pid); # THIS CAN BE REMOVED - RESULT IS SAME
exit(1);