#!/usr/bin/perl

pipe R, W or die;
die unless defined my $pid = fork;
if ($pid) {
  # parent
  close R;
  print "parent: I'm going to do some work now\n";
  for (1 .. rand 12) {
    print "Parent is working...\n";
    sleep 1;
  }
  print "parent: exiting\n";
} else {  # child
  close W;
  print "child: waiting for parent to exit\n";
  <R>;
  print "child: parent exited; exiting\n";
}