use Encode;
open (OUTPUT, ">$filename");
$clob = $sth->fetch;
$convertedstr = decode("iso-8859-1",$clob);
print OUTPUT $convertedstr;