What error message are you getting from DBI? Your tsql script is connecting to a different server (DB) than your perl script (HHC_DS). Is HHC_DS defined in interfaces or freetds.conf file?