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

##</code><code>##

	$pound= $Registry->Delimiter("/");
	$diskKey= $Registry->{"LMachine/Software/Fermin"} 
           or  die "Can't read LMachine/ key: $^E\n";
	$diskKey->AllowSave( 1 );
	$diskKey->RegSaveKey( "registro", [] );	


##</code><code>##

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