#!/usr/bin/perl

use CGI; #Hate this
use DBI;

print "Content-type: image/jpeg\n\n";
binmode STDOUT; #win32;

my $dbh = DBI->connect("relevant stuff here");
my $image_date;
my $sth = $dbh->prepare("SELECT data FROM images WHERE id=?");
$sth->execute( param('img') );
$sth->bind_column( \$image_data ); #erm. I think
$sth->fetch; $sth->finish; $dbh->disconnect;

print $image_data;

#done
[download]