opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
# use your suggestion on "$dirname/$file"
}
closedir(DIR);