#!/usr/bin/perl

use CGI qw(:all);
use MLDBM qw(DB_File);
use Fcntl;

print header;
print start_html;

tie(%messages, 'MLDBM', 'messages', O_CREAT|O_RDWR, 0777) || print "$!";