sub psMem {
    my( $pid ) = @_;
    my @lines = qx{$GOTPS   -o vsize,rss     -p $pid };
    chomp @lines;
    foreach my $line (@lines) {
        my ( $vsize, $rss) = split /\s+/, $line;
        return "VM: $vsize   RSS: $rss  ";
    }
    return;
}