sub total_size
  { open( STATUS, "/proc/$$/status") or die "cannot find status info in /proc/$$/status: $!";
    my( $size)= map { m{^VmData:\s+(\d+\s+[\w+])} } <STATUS>;
    close STATUS;
    return $size;
  }