my( $dev, $ino, $mode )= stat( _ ); return $mode; }