perl -MDBD::mysql -e1