D:\tmp\pm>perl -e"print '%OS%'"
Windows_NT
D:\tmp\pm>