print "Content-type: text/html\n\n";
$counter = 15748; # z.B.
@counter = split //, $counter;

print qq|<img src="$path_to_image/image$_.jpg">| foreach @counter;