Select Code to Download

my $db = tie %database, 'DB_File', "simpleinsert.dat",O_CREAT | O_RDWR
+, 0666 or die "Cannot initialise database";

...
                                     '14 road',
                                     '102892',
                                     '34567')->pack();

my $person = new contacts_db($database{'anthony1'});
$person->unpack_name();

$database{'anthony1'}->unpack_name();