#!/usr/bin/perl -w

use strict;
use DB_File;

my %names;

tie %names, 'DB_File', 'names.db' || die "$!";

print $names{'drew'}

##</code><code>##

while(my ($key, $value) = each(%names)) {
        print "$key\t".$names{$key}."\n";
}