print $cgi->header(
-type => 'image/jpeg'
);

open(DATEI, "bild.jpg") || die;
binmode(DATEI);
binmode(\*STDOUT);
print<DATEI>;
close DATEI;