[...] my $size; open PIPE, "/bin/ps wwaxo 'pid,rss' |"; while() { next unless /^\s*$$\s/; s/^\s+//g; chomp; $size = (split(' ', $_))[1]; } close PIPE; return $size; }