$ perl -MDBD::mysql -e 1