#!/usr/bin/perl

	# URL of gif digits
	$digits_basedir = "images/digits2/";

	# Real path and file of counter
	$count_file = "count2.txt";

open(COUNT,"$count_file");
 ($count) = <COUNT>;  
close(COUNT); 
($place, $Write) =split(/\&/,$ENV{QUERY_STRING});  
$count =~ s/\n//; 

if ($Write =~ /w/i) {
   $count++; 
   open(COUNT,">$count_file");
   print COUNT "$count"; 
   close(COUNT); 
}

$count = "0000000000".$count;
@chiffres = split(//, $count);
@chiffres = reverse(@chiffres);
print "Location: ".$digits_basedir.$chiffres[$place].".jpg\n\n";