#!/usr/bin/env perl

use strict;
use v5.18;
use utf8;
use warnings;
use Carp qw/carp croak/;

=head1 DESCRIPTION 
Find the major Windows version from the commandline "ver" command.

=cut

# ------------------------------------------------------- #
# Example Windows 11 version string (bought the machine
# with Windows 10 loaded on it):
#     Microsoft Windows [Version 10.0.26100.4349]
# ------------------------------------------------------- #
sub findVer
{
    my ( $which , $verstr );
    $verstr = `ver`;
    chomp $verstr;
    $verstr =~s{\A\n}{};
    $verstr =~m'\[Version\s (\d+) [.]'x;
    carp( qq/Couldn't get version from string "$verstr"/ ) unless $1;
    $which = $1;
    return $which;
}

say findVer();

__END__