my $Format = $^O;

if ($Format eq 'MSWin32') {
    use Win32::DriveInfo;
    }
else {
    use DiskFree;
}

Can't locate DiskFree.pm in @INC (@INC contains: C:/PERL/lib C:/PERL/site/lib .).....