use warnings;

$g = 5;
print "1st call: $g\n";

if($pid = fork()) {
  waitpid($pid,0);
} else {
  $g = 10;
  print "2nd call: $g\n";
  exit(0);
}

print "3rd call: $g\n";