programming-examples/perl/Win32/OS version.pl

#!/usr/bin/perl -w
use Win32;

@os   = Win32::GetOSVersion();

print "Version $os[1]\.$os[2] Build $os[3]\n";