Select Code to Download

use DBI;
use Compress::Zlib;
...
# Put the compressed data back here

$dbh->disconnect();

   UPDATE Table1
   SET Image = $output
   WHERE Id = 1