use strict;
use warnings;

for (keys %SIG) {
	$SIG{ $_ } = sub{
		open my $dat,'>>','sig.txt';
		print {$dat} $_."\n";	# Name des ausgelösten Signals schreiben
		close $dat;
		};
	}

while(1) {# Endlosschleife
	sleep 1; # Prozessor entlasten
	}