sub get_statm_info {
  $error = '';
  my $ref = {};

  if( ! open(_INFO,"</proc/$_[0]/statm") ){
    $error = "Couldn't open /proc/$_[0]/statm [$!]";
    return $ref;
  }
  my @info = split(/\s+/,<_INFO>);
  close(_INFO);

  ### these are all the props (skip some)
  # size resident shared trs lrs drs dt
  ###

  ### get the important ones
  $ref = {size     => $info[0] * 4,
          resident => $info[1] * 4,
          shared   => $info[2] * 4};

  return $ref;
}