perl -Mtest_dbm_1 -e 'run( message => random_letter() x 10, );' ;
perl -Mtest_dbm_1 -e 'run( dump => 1, );'