#!/usr/bin/env perl
use warnings;
use strict;

use Fcntl;   # For O_RDWR, O_CREAT, etc.
use SDBM_File;
use Data::Dumper;
my %data;
tie(%data, 'SDBM_File', '/export/home/perl8/perl/perl-5.8.9/.cpanplus/cpansmoke.dat', O_RDWR|O_CREAT, 0666)
   or die "Couldn't tie SDBM file 'filename': $!; aborting";
#delete $data{'Pg-Explain-0.09'};
print Dumper \%data;

untie %data;