#!c:/perl/bin/perl.exe
print "Content-type: text/html\n\n";
use BerkeleyDB;
   my $filename = "dict";
   my $db = new BerkeleyDB::Hash
                -Filename => $filename,
                -Flags    => DB_CREATE
        or die "Cannot open file $filename: $! $BerkeleyDB::Error\n";