my ( $ino, $off, $len, $name ) = unpack( "LLSZ*", $buf );