1 2do 'pam-lib.pl'; 3 4sub feedback_files 5{ 6opendir(DIR, $config{'pam_dir'}); 7local @rv = map { "$config{'pam_dir'}/$_" } grep { !/^\./ } readdir(DIR); 8closedir(DIR); 9return @rv; 10} 11 121; 13 14