sub handleSigs { my ($signalReceived) = @_; my $exitVal = 0; log_terminal("warning: received $signalReceived signal"); if ($signalReceived eq "INT") { $exitVal = 1; } elsif ($signalReceived eq "USR1") { $exitVal = 2; } elsif ($signalReceived eq "USR2") { $exitVal = 3; } myExit($exitVal); } $SIG{USR1}=\&handleSigs; $SIG{USR2}=\&handleSigs; #### Signal SIGUSR1 received, but no signal handler set.