Select Code to Download

#!/usr/bin/perl

...
        or return warn "Couldn't close '$File::Find::name': $!\n";
  }
}