use if $^O =~ /Win/, "Win32::DriveInfo";

##</code><code>##

if ($^O =~ /Win/) {
    require Win32::DriveInfo;
    import Win32::DriveInfo;
}

##</code><code>##

BEGIN {
    if ($^O =~ /Win/) {
        require Win32::DriveInfo;
        import Win32::DriveInfo;
    }
}