Select Code to Download

#!/usr/bin/perl -w

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

print $names{'drew'}

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