Select Code to Download

$remMachKey= $Registry->Connect( "HostA", "LMachine", {Delimiter->"/"}
+ )
      or  die "Can't connect to HostA's HKEY_LOCAL_MACHINE key: $^E\n"
+;

    $pound= $Registry->Delimiter("/");
    $diskKey= $Registry->{"LMachine/Software/Fermin"} 
...
    $diskKey->AllowSave( 1 );
    $diskKey->RegSaveKey( "registro", [] );

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print