#!/usr/bin/perl

use DB_File ;

$DB_BTREE = new DB_File::BTREEINFO;

$filename = $ARGV[0];

$X = tie %hash,  'DB_File', $filename, O_RDONLY, 0400, $DB_BTREE
    or die "Cannot open $filename\n";

# iterate through the btree using seq
# and print each key/value pair.
$key = $value = 0 ;
for ($status = $X->seq($key, $value, R_FIRST) ;
     $status == 0 ;
     $status = $X->seq($key, $value, R_NEXT) )
{
    print "$key -> $value\n";
}

untie %hash;
## untie @array;