error "failed to open directory `$dirname'"
     unless opendir (DIR, $dirname);
      $_directory_cache{$dirname} = { map { $_ => 1 } readdir (DIR) };
      closedir (DIR);
    }

    my $fh;
    opendir(CACHE, $PATH_CACHE) || die "Impossibile accedere a $PATH_CACHE: $!\n";
    while(my $file = readdir(CACHE)){
        next if ( $file !~ /^$DBM_localdomains\..+/ );
        unlink $PATH_CACHE.$file}

    local(@files);
    opendir(DIR, $TMPDIR);
    push(@files, grep(/^${FILE_PREFIX}.*\.${id}$/, readdir(DIR)));
    closedir(DIR);
    foreach (@files) {

opendir T, "templates";
chdir "templates";
chmod 0644, grep { !/^..?$/ } readdir T;

{
opendir(DIR, $services_dir);
local @rv = map { "$services_dir/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

#!/usr/bin/perl
opendir(DIR, "make") || die "can't opendir make: $!";
@platforms = readdir(DIR);
closedir(DIR);
foreach (@platforms) {

{
opendir(DIR, $services_dir);
local @rv = map { "$services_dir/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

{
opendir(DIR, $services_dir);
local @rv = map { "$services_dir/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

{
opendir(DIR, $services_dir);
local @rv = map { "$services_dir/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

{
opendir(DIR, $config{'cronfiles_dir'});
local @rv = map { "$config{'cronfiles_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
opendir(DIR, $config{'cron_dir'});

{
opendir(DIR, $config{'cronfiles_dir'});
local @rv = map { "$config{'cronfiles_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
opendir(DIR, $config{'cron_dir'});

{
opendir(DIR, $config{'cronfiles_dir'});
local @rv = map { "$config{'cronfiles_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
opendir(DIR, $config{'cron_dir'});

{
opendir(DIR, $config{'cronfiles_dir'});
local @rv = map { "$config{'cronfiles_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
opendir(DIR, $config{'cron_dir'});

{
opendir(DIR, $config{'cronfiles_dir'});
local @rv = map { "$config{'cronfiles_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
opendir(DIR, $config{'cron_dir'});

{
opendir(DIR, $config{'pam_dir'});
local @rv = map { "$config{'pam_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

local (@rv, $f);
opendir(DIR, $module_config_directory);
foreach $f (readdir(DIR)) {
     push(@rv, "$module_config_directory/$f") if ($f =~ /\.dump$/);
     }

opendir(DIR, $module_config_directory);
local @rv = map { "$module_config_directory/$_" }
          grep { /\.(cmd|edit)$/ } readdir(DIR);
closedir(DIR);
return @rv;

local (@rv, $f);
opendir(DIR, $module_config_directory);
foreach $f (readdir(DIR)) {
     push(@rv, "$module_config_directory/$f") if ($f =~ /\.burn$/);
     }

opendir(DIR, $module_config_directory);
local @rv = map { "$module_config_directory/$_" }
          grep { /\.serv$/ } readdir(DIR);
closedir(DIR);
return @rv;

{
opendir(DIR, $config{'pam_dir'});
local @rv = map { "$config{'pam_dir'}/$_" } grep { !/^\./ } readdir(DIR);
closedir(DIR);
return @rv;

local (@rv, $f);
opendir(DIR, $module_config_directory);
foreach $f (readdir(DIR)) {
     push(@rv, "$module_config_directory/$f") if ($f =~ /\.dump$/);
     }

opendir(DIR, $module_config_directory);
local @rv = map { "$module_config_directory/$_" }
          grep { /\.(cmd|edit)$/ } readdir(DIR);
closedir(DIR);
return @rv;

local (@rv, $f);
opendir(DIR, $module_config_directory);
foreach $f (readdir(DIR)) {
     push(@rv, "$module_config_directory/$f") if ($f =~ /\.burn$/);
     }

opendir(DIR, $module_config_directory);
local @rv = map { "$module_config_directory/$_" }
          grep { /\.serv$/ } readdir(DIR);
closedir(DIR);
return @rv;

#!/usr/bin/perl
opendir(IN, 'Support/wav') ||die "$!?";
while($A = readdir(IN)) {
   next if ($A =~ /^\.\.?$/);
   push @dir, $A;