Help for this page

Select Code to Download

Select or download this

my $dn = '.';
my @f;
...
   next if $filename=~/^\.\.?\z/;
   push @f, $filename;
}