# assumes image data is in $image
my $size = length $image;
print "MIME-version: 1.0\n";
print "Content-type: image/bmp\n";
print "Content-length: $size\n";
print "\n";
binmode STDOUT;
print $image;
# done