perl -MBerkeleyDB -e 1