#!/usr/bin/perl

$SIG{CHLD} = sub{ print "Got $_[0]\n"; };
print $$,"\n";
select(undef,undef,undef,10000);
print "all done\n";'