Select Code to Download

#!/usr/bin/perl

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

2 3 foobar

1 got 2 3 foobar
2 got 3 foobar
3 got foobar