Select Code to Download

use NBDM_File;
tie %hash, '/some/path/databasefile',  1, 0;
$hash{'key'} = 'value';
my $value = $hash{'key'};
untie %hash;

use FreezeThaw qw/freeze thaw/;

...
my $cd = thaw( $hash{'My Music'} );
printf "Album %s with %s tracks\n", $cd->{'title'}, 
     $#{$cd->{'tracks'}};