Select Code to Download

#!/usr/bin/perl

...
    print STDOUT time%100, ": child exiting\n";
    exit;
}

51: polling child
51: received <50: child started>
...
58: polling child
58: received <E_O_F>
58: child reaped, parent exiting