I have modified like this:

#!/usr/bin/perl -w

if ( $^O =~ /^(MS)?Win/ )
{
eval{
require Win32:: DriveInfo;

$TotalNumberOfFreeBytes = (Win32:: DriveInfo:: DriveSpace('c:'))[6];

Hello All:

I want this perl script to run in Linux, solaris and windowXP. How to modify this script and make it running in different OS.

Hope some Perl senior help me.

Thanks!!!!
...