open( STAT , "</proc/$$/stat" ) or die "Unable to open stat file";
  @stat = split /\s+/ , <STAT>;
  close( STAT );

  print sprintf "Vsize: %3.2f MB\n", $stat[22]/1048576;
  print "RSS  : $stat[23] pages\n";