opendir(DIRHANDLE, $testdir) or die "couldn't open directory: $testdir";
@filenames = grep {-f "$testdir/$_"} readdir(DIRHANDLE); 

closedir(DIRHANDLE);