{ ## Parent
  our ( %hash, @array, $scalar, $LOCK );     ## Global data
  my $lockfile = "./GobalLock";
  open ( $LOCK, ">>", $lockfile ) or die "Can't open $lockfile; $!\n";

  ...   # code to fork and maintain number of children
}