The standard Perl signal handlers are only given the received signal name as argument. There is no way to get the PID of the process that sent the signal.

If you use POSIX::sigaction you can set the SA_SIGINFO flag so that your handler receives a hash which includes keys pid and uid (but note the warning in POSIX::sigaction that many systems do not provide this information) and the binary content of the siginfo structure.