i think this statement is in error~

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 ke
+y," .
    " Session Manager/Environment: $^E\n";
[download]

and should be more like~

my $SysEnv= $Reg->{"//$Host/LMachine/System/CurrentControlSet/" . 
  "Control/Session Manager/Environment/"} # no connect, use {}, not ()
  or die "Can't connect to $Host 's registry or can't open Registry ke
+y," .
    " Session Manager/Environment: $^E\n";
[download]

but i haven't tested it.

~Particle