opendir(DIR, $dir) or die "can't opendir $dir: $!";

  @files = readdir( DIR ) or die "Couldn't read from $dir : $!\n";


  @files = grep @files, { /\errors.txt$/ && -f $_ };
print "*****A found your file here!******<br>";