Use the second example (untested)

open (IMG, $image_file) or die "could not read image: $!";;
my ($image, $buff);
while (read IMG, $buff, 1024){
  $image .= $buff;
}
close IMG;
# assume it's a gif
print "Content-type: image/gif\n\n";
print $image;
[download]

poj