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

##</code><code>##

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

##</code><code>##

[me@localhost ~]$ ./test2.pl -d sample/ | head
sample/xaaaaaaaaff
sample/xaaaaaaabdu
sample/xaaaaaaabjw
sample/xaaaaaaaaos
sample/xaaaaaaaalu
sample/xaaaaaaaags
sample/xaaaaaaabci
sample/xaaaaaaabhy
sample/xaaaaaaabjv
sample/xaaaaaaaaxa