#!/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 "ALIGN=center BORDER=0>\n\n"; print "

\n\n"; @digits = split(//, $count); $spline = '%0' . $number_of_digits . 'd'; $count = sprintf("$spline", $count); @digitimages = split(//, $count); foreach $digitimage (@digitimages) { $image = "src=\"../obrazki/" . "$digitimage" . ".gif\" VSPACE=0>"; print ("$image");} print "\n";