I found a solution, I will use:

    my ($name, $major, $minor, $build, $id) = Win32::GetOSVersion();
[download]

and check the values are greater than or equal to id - 2, $major - 6, $minor - 1. I guess higher version of Windows got the 262 value