#!/usr/bin/perl -w

use strict;
use DB_File;

my %names;

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

print $names{'drew'}