#!/usr/bin/perl $number_of_digits = "6"; ###################### open (COUNTING, "< D:/StronyKlientow/cematsil.bptnet.pl/main/Alicja/perl/counter.txt")||die"can not open"; $count = ; close (COUNTING); $count ++; print ("Content-type: text/html\n\n"); print "\n\n"; print "

\n\n"; @digits = split(//, $count); # Give empty digits a value $spline = '%0' . $number_of_digits . 'd'; $count = sprintf("$spline", $count); @digitimages = split(//, $count); foreach $digitimage (@digitimages) { $image = "

"; print ("$image"); } print "\n"; print "

\n\n\n"; open (COUNTER, "> D:/StronyKlientow/cematsil.bptnet.pl/main/Alicja/perl/counter.txt")||die"can not open!\n"; print COUNTER ("$count"); close (COUNTER); exit;