perl -MDB_File -e1