use DB_File;

my ($handle,%db);
$handle = tie(%db, 'DB_File');

$db{'Larry'} = 'Wall';