...
   my @dircontents = $dir->read();
   print join "\n", @dircontents, '';
...