Select Code to Download

#!/usr/bin/perl

...
  {
  die "$! on fork";
  }

PARENT: Going to transfer line -- 1 --
CHILD: Received line -- 1 --
...
PARENT: closed writer, waiting for child to exit
CHILD: exiting
PARENT: exiting