in reply to $^O on windows-systems and Perl interna

if ($^O eq 'MSWin32') {
    $ver = `ver`;
    $ver =~ s/\n//;
    print "Windows: $ver\n"
}

[download]

In Section Meditations