A perl script to pull information out from a db