$x = " " x 50_000_000; # belegt 100MB, siehe Diskussion irgendwo bei perlmonks oder perl5.porters
for (1..100) {
  my $pid = fork;
  if ($pid == 0) {
    warn $$;
    sleep 10;
    exit;
  }
}
sleep 10;