#!/usr/bin/perl
@files = <C:/Perl/bin/Anti/*>;
foreach $file (@files){
print "$file \n";
# found to be ok....prints all the files...
open(MYFILE,"<","C:/Perl/bin/Anti/$file") or die "Failed to open file: $file:$! ";
while(<MYFILE>) {

    print "$_ \n \n \n";

}
}