Select Code to Download

#!/usr/bin/perl

...
        sleep 1 unless $c % 5; # pause after each fifth line
    }
}

CHILD writing <1>
CHILD writing <2>
...
PARENT sees <9>
PARENT sees <10>
PARENT sees <11>