perl -Mlocal::lib -MDBD::DB2 -E "1;"