Select Code to Download

use strict;
use warnings;
...
return if -d;
print "$File::Find::name", "\n"; 
}

#C:\Perl\bin\Perl.exe -w
use strict;
...
    }
    return \%mbox;
}