perl -MClass::DBI::mysql -e0