Help for this page
@files = grep { -f } readdir DIR;
my $path = "C:/Perl/bin/Anti"; opendir( DIR, $path ) or die "opendir failed on $path: $!\n"; ... ... } }