I wouldn't use File::Find, I'd try File::Which.

use File::Which qw(which where);  

my $exe_path = which('perl');
# or 
my @paths = where('perl');

$drive_letter = substr($exe_path,0,1);

print $drive_letter, "\n";
print $exe_path, "\n";
print join "\n", @paths;
[download]