#!/usr/bin/perl -w
use strict;
use AnyDBM_File;
use Fcntl;
tie (my %hash, "AnyDBM_File", "filename", O_CREAT|O_RDWR, 0600) or die "Can't open database: $!\n";
# insert code for %hash here
untie %hash;