sub mem {
    local $/;
    open my $fh, '/proc/self/status';
    <$fh> =~ /^VmRSS:\s*(\d+)/m;
}