my $SysEnv= $Reg->connect("$Host", "LMachine/System/CurrentControlSet/" . 
  "Control/Session Manager/Environment/")
  or die "Can't connect to $Host 's registry or can't open Registry key," .
    " Session Manager/Environment: $^E\n";