perl -MDevel::Cover=-db,cover_db,-coverage,statement,time yourprog args