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

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

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