use strict;
use warnings;
use GD;

my $image = newFromJpeg GD::Image('image.jpg');
binmode(STDOUT);

print "Content-type: text/html\n\n";
print $image->jpeg;