$ perl -e "print $^O, qq{\n};"
cygwin