my $s = "_" x 10000000;
if (my $pid = fork) {
  print "parent";
}
else {
  # $s = "(".$s.")";  # <---
}