sub RUN
{
  my $arg = shift;
  if (fork) {  # parent process
    # do whatever parent is supposed to do
    wait;
  } else {     # child process
    do stuff on $arg;
    exit;
  }
}