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