well, it is just a WARNING, and nothing you must care about.
it' beacuse you are using require to import the module. There is already a bug-report-ticket issued on that "problem".
below, you find a cleaned up version.
#!/usr/bin/perl
use strict;
use warnings;
if ( $^O =~ /^(MS)?Win/ ) {
eval {
require Win32::DriveInfo;
my $TotalNumberOfFreeBytes = (Win32::DriveInfo::DriveSpace('c:
+'))[6];
my $TotalNumberOfBytes = (Win32::DriveInfo::DriveSpace('c:'))[
+5];
print "This is $^O \n";
print "Total Free: $TotalNumberOfFreeBytes\tTotal size: $Total
+NumberOfBytes\n";
};
print $@, "\ndone!";
}
elsif ( $^O =~ /^linux/ ) {
print "This is Linux OS!!!\n";
}