#!perl
use strict;
use Error qw(:try);
use DBIx::Simple;
use Sys::Hostname;
use DBI;

my $dsnString='dbi:ODBC:Driver={SQL Native Client};Server='.hostname.';Database=db_simon;Trusted_Connection=yes;';
my $dbh =DBIx::Simple->connect($dsnString,,) || throw Error::Simple("Unable to connect to Database using DSN String \"".$dsnString."\".");

$dbh->{'dbh'}->{'AutoCommit'} =  0;
$dbh->{'dbh'}->{'RowCacheSize'}	=  0;
$dbh->{'dbh'}->{'LongTruncOk'}	=  1;
$dbh->{'dbh'}->{'LongReadLen'} = 50000; # actual for varbinary(MAX) = 2147483647
#$dbh->{'dbh'}->{'RaiseError'} = 1;


# insert some data
my $data = "x" x 1000;
$dbh->query('INSERT INTO t_test (c_data) VALUES (?)', $data) or die $dbh->error;

# and retrieve
my $results = $dbh->query('SELECT c_id,c_data FROM t_test')->hashes or die $dbh->error;
foreach my $result(@{$results}) {
	print $result->{'c_id'}."-".substr($result->{'c_data'},0,10)."... (".length($result->{'c_data'})." chars returned)\n";
}

$dbh->disconnect;