BEGIN {
    my $module ;
    if ( $^O =~ /MSWin32/ ) {
        $module = 'Win32::DriveInfo' ;
    }
    else {
        $module = 'DiskFree' ;
    }
    require $module ;
    import $module ;
}