#!/usr/bin/perl -w

use strict;
use DB_File;

my $db_file = "./addressbook.db";
my %db=();

dbmopen(%db, $db_file, 0666) or die "Can't open DB_File $db_file : $!\n";

for my $key (keys %db){
  for my $data (split /\n/, $db{$key}){
    print "$data \n";
  }
}

dbmclose(%db);