Select Code to Download

#!/usr/bin/perl
# teof2 20201104        NHA
...
    print STDOUT time%100, ": child exiting\n";
    exit;
}

= ./teof2
89: polling child
89: received <88: child started>
...
96: received <E_O_F>
96: child exiting
96: child reaped, parent exiting

= ./teof2
16: polling child
...
Uncaught exception from user code:
    sysread: Resource temporarily unavailable
    main::readLine(GLOB(0x55a6c475a4d8)) called at ./teof2 line 63