There is another quick way to find out whether the perl script is running under Unix or Windows by checking for the existance of a system file, say, /bin/ls. The following code would work well:

$hosttype = (-x "/bin/ls") ? "UNIX" : "WINDOWS";
print "$hosttype\n";
[download]