Select Code to Download

use strict;
use warnings;
...
    close BADLIST;
}
print "\nFound $nbad bad file/s";

use strict; 
use warnings;
...
    my $fn = $File::Find::name;
    push @drivelisting, $fn if($fn ne "$drive");
}