清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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

@os   = Win32::GetOSVersion();

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