#!c:/perl open (COUNT, "count.txt") or die "Cannot open $count for read :$!"; for $line () { chomp $line; push (@digits, $line); } close COUNT; $a = $digits[6]; $b = $digits[5]; $c = $digits[4]; $d = $digits[3]; $e = $digits[2]; $f = $digits[1]; $g = $digits[0]; $a++; if ($a == 10) { $a = 0; $b++; if ($b == 10) { $b = 0; $c++; if ($b == 10) { $c = 0; $d++; if ($b == 10) { $d = 0; $e++; if ($b == 10) { $e = 0; $f++; if ($b == 10) { $f = 0; $g++; } } } } } } print "Counter v.1.0
"; open (RECOUNT, ">count.txt") or die "can't overwrite!!"; print RECOUNT "$g\n$f\n$e\n$d\n$c\n$b\n$a"; close RECOUNT;