#!/usr/bin/perl $countfile = "countxt"; $giffile = "small.jpg"; $count = `cat $countfile`; chop($count); $count = $count + 1; open(INF,">$countfile"); print INF "$count\n"; close(INF); print "Content-type:image/jpg\n\n"; @gifdata = `cat $giffile`; print @gifdata; print "Content-type: text/html \n\n"; print " # count= $count \n"; exit;