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