#!c:/perl/bin/perl -w
use strict;

use DBM::Deep;
use Data::Dumper;

unlink './test.dbm';

my $db = DBM::Deep->new( './test.dbm' );  
$db->{test} = { fred => [ 1 .. 10 ], bill => [ 'a' .. 'z' ] };

print Dumper $db;