use strict; use warnings; opendir (DIR, '.'); my @dir = readdir(DIR); $, = "\n"; print @dir;