use strict VAR;
use warnings 'all';
use Win32API::Registry;
use Win32API::Net;
use Win32::TieRegistry;
use Win32;
my $CurrVer;
my $p = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion";
my $main::HKEY_LOCAL_MACHINE->Open($p, $CurrVer) || die "OPEN $!\n";