#!/usr/bin/perl
use strict;
use BerkeleyDB;

my $filename = '/home/user/Perl/AA';
my %h ;
tie %h, 'BerkeleyDB::Btree',
          -Filename   => $filename,
          -Flags      => DB_CREATE
or die "Cannot open $filename $! $BerkeleyDB::Error" ;

foreach $key (keys %h)
{
    print "$key:";
    print "$h{$key}\n";
}