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

##</code><code>##

use FreezeThaw qw/freeze thaw/;

# Store information
my $cdobject = { 'title' => 'My Music', 'author' => 'Me',  
      'tracks' => [ {'title' => 'songA', 'length' => '1:00'},
            {'title' => 'songB', 'length' => '1:50'} ] };
my $cdfrozen = freeze($cdobject);
$hash{ $cdobject->{'title'} } = $cdfrozen.

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