Select Code to Download

{ ## Parent
  our ( %hash, @array, $scalar, $LOCK );     ## Global data
...

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

{
  my $need;
...
  else { die "$!\n"; }
  ...
}