Win32 Perl

  1. Home
  2. Perl
  3. Win32
  4. OS version
#!/usr/bin/perl -w
use Win32;
@os   = Win32::GetOSVersion();
print "Version $os[1]\.$os[2] Build $os[3]\n";