eval {require Win32API::File};

    if (not $@) {
        my @drv = map {s/\\$//;lc} Win32API::File::getLogicalDrives();
        print @drv;
    }