# Using dbmopen
dbmopen(my %foo, 'data.db', 0666);
# time passes...
dbmclose(%foo);

# Using tie
use DB_File;
tie(my %foo, 'DB_File', 'data.db');
# time passes...
untie(%foo);