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();