#!/usr/local/bin/perl
#<Plaintext>
$file='count';
$filea='count1';
$graphics='images';

open(DATA,"$file");while(<DATA>){$count=$_;$count++;}close(DATA);
$count_length=length("$count")-1;
foreach $image_no (0..$count_length) {$img=substr($count,$image_no,1);
                                      print "<img src=\"$graphics/$img.gif\" alt=\"$img\" border=\"0\">";}
open(DATA,">$file");print DATA "$count";close(DATA);
open(DATA,">>$filea");print DATA "$count";close(DATA);

