#!/usr/bin/perl $counterfile = "counter.txt"; open(COUNTERFILE,"$counterfile"); $counter=; close(COUNTERFILE); $len=length($counter); @count_array=split(//,$counter); @max=@count_array; print "Content-type: text/html\n\n"; print "\n"; print ""; print "
"; print ""; @count_array=split(//,$counter); $max = @count_array; for ($i=0;$i<$max;$i++) { print ""; } print "";