Select Code to Download

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

$db->db_get("word", $lang); #the word is stored in the $lang variable.