perl -MDBD::ADO -e 1