my $db = tie %database, 'DB_File', "simpleinsert.dat",O_CREAT | O_RDWR, 0666 or die "Cannot initialise database";
$database{'anthony1'}=new contacts_db('anthony',
'ant@hot',
'14 road',
'102892',
'34567')->pack();
####
my $person = new contacts_db($database{'anthony1'});
$person->unpack_name();
##
##
$database{'anthony1'}->unpack_name();