sub S { system "ps u $$"; }
&S;
my $X = "x"x10240000;
&S;
undef $X;
&S;
$X = "x"x10240000;
&S;
undef $X;
&S;