$somepath = '/path/to/anywhere';
opendir(DIR, $somepath) or warn "Can't open that directory : $!\n";
@files = ('', readdir(DIR));
foreach $file (@files) {
  push @keepers, "\"$file\"\n" if ($file ne '' and $file ne '..' and
$file ne '.');
}
closedir(DIR);
print $#keepers + 1 . " files encountered :\n" . join("",@keepers);