#! perl -slw
use strict;
use Data::Dumper;
use DBM::Deep;

unlink './test.dbm';

# my $db = DBM::Deep::new( './test.dbm' );  
# gives Can't locate object method "TIEHASH" via 
# package "./test.dbm" at c:/Perl/site/lib/DBM/Deep.pm line 121

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

print Dumper $db;

# The above results in many errors like the following.
# Use of uninitialized value in string ne at c:/Perl/site/lib/DBM/Deep.pm line 704.
# Use of uninitialized value in substr at c:/Perl/site/lib/DBM/Deep.pm line 711.
# Use of uninitialized value in substr at c:/Perl/site/lib/DBM/Deep.pm line 711.
# substr outside of string at c:/Perl/site/lib/DBM/Deep.pm line 711.

undef $db;
$db = new DBM::Deep './test.dbm';

print Dumper $db;
# Ditto the above errors.