sub my_mem {
    my @pslines
        = grep( m{ \A \s* (?: \d+ \s+ ){2} $$ \b }xms, `ps axl` );

    die if ( scalar @pslines != 1 );

    my $line = $pslines[0];
    chomp $line;
    my @words = split /\s+/, $line;

    return $words[6];
}