just a guess, but I think you want:

 print $dir->name . '/' . $fi->name;
[download]

instead of print $dir->$fi->name;