while($read != 0)
{
    my($ino, $off, $len, $name) = unpack("LLSZ*", $buf);
    print $name, "\n" if($ino != 0);
    substr($buf, 0, $len) = '';
    $read -= $len;
}