or download this
$Key = $Registry->Open( "LMachine/Software/Vibac_Calls/CallsList/F
+ields", {Access=>KEY_READ(),Delimiter=>"/"} ) or warn "OPEN: $Key ->
+(ERROR: $^E)\n";
my @regFields = $Key->SubKeyNames;
...
$data_mycalls{fields}[$x]{$regValues[$y]} = $fieldKey->Get
+Value($regValues[$y]);
}
}