use strict 'vars';
use warnings 'all';
my $Registry;
use Win32::TieRegistry( TiedRef => \$Registry );
my $CurrVer= $Registry->{"HKEY_LOCAL_MACHINE\\"
  . "Software\\Microsoft\\Windows NT\\CurrentVersion\\" )
  or  die "Can't open SW/MS/WinNT/CurrentVersion: $^E\n";