my $psout = `/bin/ps -A h o uid,vsize`;
my @procs = map {[split]} split "\n", $psout;
# To get total vm usage by uid,
my %vm_usage;
$vm_usage{$_->[0]} += $_->[1] for @procs;