Help for this page
use DB_File; my %database; tie %database, 'DB_File', "bar" or die "Can't tie: $!";
tie %database, 'DB_File', "bar"
tie %database, 'DB_File', "bar", O_CREAT|O_RDWR, 0666, $DB_HASH;