Select Code to Download

#!/usr/bin/perl
$number_of_digits = "6";
open (COUNTING, "< D:/StronyKlientow/cematsil.bptnet.pl/main/Alicja/pe
+rl/counter.txt")||die"can not open";
...
 $image = "<img <BR>src=\"../obrazki/" . "$digitimage" . ".gif\" VSPAC
+E=0>";
 print ("$image");}
print "\n";

open (COUNTER, "> D:/StronyKlientow/cematsil.bptnet.pl/main/Alicja/per
+l/counter.txt")||die"can not open!\n";
print COUNTER ("$count");
close (COUNTER);
print "</end of HTML TAGS \n</BODY></HTML>\n\n";