open( STAT , "</proc/$$/stat" )
    or die "Unable to open stat file";

@stat = split /\s+/ , <STAT>;

close( STAT );