use DBI;
use Compress::Zlib;

my $server = "servername";
my $database = "databasename";
my $connstr = "driver={SQL Server};Server=$server;database=$database";
my $dbh  = DBI->connect("dbi:ODBC:$connstr") or die "$DBI::errstr\n";

my $qry_getdata = qq {
   SELECT Image FROM Table1
   WHERE Id = 1
};
my ($bindata) = $dbh->selectrow_array($qry_getdata);
my $output = Compress::Zlib::memGzip($bindata);

# Put the compressed data back here

$dbh->disconnect();

##</code><code>##

   UPDATE Table1
   SET Image = $output
   WHERE Id = 1