#!/afs/athena/contrib/perl5/perl

$SIG{CHLD}='IGNORE' unless @ARGV;
fork or exit;
fork or exit;
sleep 1;

while (($w = wait) >= 0) {
  print "Reaped zombied PID $w.\n";
  $zombie++;
}
print "No zombied PIDs.\n" unless $zombie;