sub fexist($) {
  my $str = shift;
  for (glob qq("$str")) {
    return 1 if -e "$_";
  }
  return 0;
}