my $image = 'logo.gif'; 
open(IMAGE, "<$image") or die "cannot open image file: $!"; 
my $no_bytes = (stat ($image))[7]; 
print "Content-type: image/gif\n"; 
print "Content-length: $no_bytes\n"; 
print "Pragma: no-cache\n\n"; 
print <IMAGE>; 
close(IMAGE) or die "cannot close image file: $!";