opendir(DIR,"/some/dir") || die "can't open: $!";
@files = grep { /\.c$/ } readdir(DIR);
closedir(DIR);