my ( $ino, $off, $len, $name ) = unpack( "L!L!SZ*", $buf );