#
#
#connect to the database, set some properties
#
$host=...;
$port=...;
$user =...;
$pass = ...";
$dsn="dbi:ODBC:Driver=/usr/local/lib/libtdsodbc.so;SERVER=$host;PORT=$port;DATABASE=...;TDS_Version=7.2";
$dbh= DBI->connect($dsn,$user,$pass) or die "can't connect";

$fileTableName="fileTable";

$cmd="SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE='BASE TABLE' AND TABLE_NAME='$fileTableName\'";
$fetchcmd= $dbh->prepare($cmd);
$fetchcmd->execute();
if(@row= $fetchcmd->fetchrow_array){
	print "the file table is there!!!\n";
}else {
	$createCmd=$dbh->prepare("create table $fileTableName (fileColumn VARBINARY(MAX) not null)");
	$createCmd->execute();
	$insertCmd=$dbh->prepare("insert into $configTableName (fileColumn) values (?)");
	$insertCmd->bind_param(1,0,DBI::SQL_VARBINARY);
	$insertCmd->execute();
}
$fetchcmd->finish();


$insertcmd= $dbh-> prepare("insert into $fileTableName (fileColumn) values (?)");

# 350kBites -> largest number is 2^(8*350000)-1
for($i = 75; $i<2**28000000;$i=$i*2){
	print"did";
	$insert='g'x$i;
	$insertcmd->bind_param(1,$insert,DBI::SQL_VARBINARY);
	$insertcmd->execute() or print" not ";
	$insertcmd->finish();
	$sz=length($insert);
	print " succeed. size: $sz\n"; 
}
$dbh->disconnect;