#!/usr/bin/perl -w
use Storable qw( freeze thaw );
use DB_File;
use strict;

my %hash = (
 1 => { desc   => 'fat',
        states => 'WA OR ID CA',
        open   => '0',
        narm   => '1',
      },
 2 => { desc   => 'fatter',
        states => 'NATIONWIDE OR ID CA',
        open   => '1',
        narm   => '0',
      },
);

my $frozen = freeze \%hash;

my %table;

tie (%table, 'DB_File', 'planners.db', O_RDWR|O_CREAT,
  0666, $DB_BTREE) or die "Cannot tie: $!";

%table = (
  planners => $frozen,
);

untie %table;