gistfile1.txt

$ ps auwx | head -1
USER              PID  %CPU %MEM      VSZ    RSS   TT  STAT STARTED      TIME COMMAND
$ ps auwx | grep perl
schwern          3574   0.0  0.0  2442000    628 s000  S+   10:50AM   0:00.00 grep perl
schwern          3567   0.0  1.0  2507496  80168 s001  S    10:50AM   0:00.13 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  sleep 9999
schwern          3558   0.0  1.0  2517736  80244 s001  S    10:50AM   0:00.56 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  print {$fh} $_ for @list;  sleep 9999
schwern          3557   0.0  1.0  2525928  80232 s001  S    10:50AM   0:00.45 perl -wle my @list = (1..1_000_000);  open my $fh, ">>", "/dev/null";  print $fh @list;  sleep 9999