Select Code to Download

#!/usr/bin/perl

...
kill 15, keys %who;
unlink map "$fifodir/$_.fifo", keys %who;
print "$who{$pid} exited\n" while ($pid = wait) > 0;

25910 somemessage

25908 got 25910 somemessage
25910 got somemessage