#!/usr/bin/perl
use BerkeleyDB; 
print "start\n";

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

foreach $key (keys %h)
{
my ($open, $high, $low, $close, $volume, $interest) 
    = unpack "dddddl", $h{$key};
    print "$key: $open,$high,$low,$close,$volume,$interest\n";
   # print "$h{$key}\n";
}
untie %h;
print "end\n";
[download]