Select Code to Download

open IMG, "foo.gif"
       or die "Couldn't open image: $!\n";
...
while ($txt = substr($hex,0,32,'')) {
       print "'$txt'\n";
       }

use strict;
use DBI qw(:sql_types);
...
$sth->bind_param( 1, 'pic1');
$sth->bind_param( 2, $hex, SQL_LONGVARCHAR);
$sth->execute();

print "Content-type: image/gif\n\n";
print Image();
...

  return(pack("H*",$image));
}

use DBI;
use strict;
...
undef $/;
print FH pack("H*",$image);
close FH;