my $key= new Win32::TieRegistry "LMachine/Software/Kerridge/KPrint/Queues/", { Delimiter=>"/" };
my $success= $key->AllowSave(1);
$key->RegSaveKey( "KPrintQueues_new.hive", [] );