open FILE,"<e:\\test.html" || die "Can not open file.";
while($line=<FILE>) {$content.=$line}
close FILE;

$content=~s/\'/\'\'/g;
......
$SQL=<<SQL;
begin tran
create table xxx
(n char(100),
 t text)
insert xxx
values('abc','$content')
commit tran
SQL

if ($db->Sql($SQL)){ print "error1\n"; exit; }

$SQL=<<SQL;
begin tran
select * from xxx
commit tran
SQL

if ($db->Sql($SQL)) { print "error2\n"; exit;}
if($db->FetchRow())
 {
	$data=$db->Data();
	print "$data\n"; ###when <= 10,467
 }
else
 {
	print "no line\n";###when > 10,467
	exit;
 }