Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        #    or warn "Can't rename $File::Find::name\n";
    }
}