my $path = "/path/to/whatever";
opendir (DIR, $path) or die "Can't read $path: $!";
my @files = grep { not /^\.{1,2}$/ } readdir (DIR);
closedir (DIR);

print join("\n", sort @files), "\n";