open IMAGE, "/path/to/image.jpg";
#assume is a jpeg...
my ($image, $buff);
while(read IMAGE, $buff, 1024) {
	$image .= $buff;
}
close IMAGE;
print "Content-type: image/jpeg\n\n";
print $image;