sub ps {
 system("/bin/ps", "-o", "pid,size,vsize", $$);
}

ps();

{
  my $x = " " x 2_000_000;
  ps();
  undef $x;
}

ps();