if ($f) {
  print ($f "x") for (1..40_000_000);
  close $f;
 }