$sqlStmtSel = "SELECT DATA 
                     FROM BINARY_DATA
                     where ID = 97312";
            
$dbhsrc->{LongReadLen}=150000000;  # Make sure buffer is big enough for BLOB
$stmtSel = $dbhsrc->prepare($sqlStmtSel) || die "\nPrepare error:$DBI::errstr\n";

# Daten des BLOB lesen
my @data = $stmtSel->fetchrow_array;
my $BLOB = shift @data;
     
     
# Handle für die Ausgabe diverser CGI-"Sachen"
my $cgi = CGI->new;
     
# Bild ausgeben
$|=1;
print $cgi->header(-type=>"image/jpeg",-charset=>"");
binmode(STDOUT);
#print STDOUT $BLOB;
     
print "<p align='left'><img src=$BLOB></p>";