... code to get random image name ...
open(IMG, $img) or die $!;
print "Content-type: image/jpeg\n\n"; #or gif, png whatever it is
{ 
  local $/;
  print <IMG>;
}
close IMG;