sub fileExists {
  my $dir = shift;
  my $file = shift;

  opendir DIR, $dir;
  my ($exists) = grep /$file/i, readdir DIR;
  closedir DIR;
  return $exists;
  
}