if ( $^O =~ /MSWin32/ ) {
    print "Windows\n";
} else {
    print "Not windows\n";
}