unless (-x $file) {
  warn "file $file does not appear to exist or is not executable\n";
  next;
}