C:\>perl -e "print $^O;"
MSWin32
C:\>