tie(%mail, "SDBM_File", "maillist", O_CREAT|O_RDWR, 0666)
                or die "Error opening maillist. $!, stopped";