open FILE, "<file" or die "$!\n";
{ local $/="";
  while ($rec=<FILE>) {
    my @fields=split("\n", $rec);
    my $key;
    foreach (@fields) {
      my ($index, $value)=split(/\s*:\s*/, $_, 2);
      if ($index eq 'Name') {
        $key=$index;
        $db{$key}={};
      } else {
        $db{$key}->{$index}=$value;
      }
    }
  }
  close FILE;
}