If you use FreeTDS 0.53 or later you may insert line
text size 25000
into freetds.conf and eliminate
$dbh->do("set textsize 25000");
from your source code.

-- yuriy