6 lines
114 B
Perl
6 lines
114 B
Perl
#!/usr/bin/perl -w
|
|
use Win32;
|
|
|
|
@os = Win32::GetOSVersion();
|
|
|
|
print "Version $os[1]\.$os[2] Build $os[3]\n"; |