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 <13>
PARENT sees <14>
PARENT sees <15>