my $jpeg = getTheJpeg();
binmode STDOUT;
print
  "Content-Type: image-jpeg\r\n",
  "Content-Length: ", length($jpeg), "\r\n\r\n",
  $jpeg;