use Win32API::File qw( getLogicalDrives GetDriveType DRIVE_FIXED );
use File::Find qw( find );

find(
    sub {
        print $File::Find::name,$/  if  "perl" eq lc($_);
    },
    grep(
        DRIVE_FIXED == GetDriveType($_),
        getLogicalDrives(),
    ),
);