Help for this page

Select Code to Download

Select or download this
```
@files = grep { -f } readdir DIR;
```

Select or download this

my $path = "C:/Perl/bin/Anti";
opendir( DIR, $path ) or die "opendir failed on $path: $!\n";
...
        ...
    }
}