#!c:\perl\bin\perl.exe 
use CGI qw(:standard);

print header;

open (FIC, "D:\\securite-enfance\\compteur-secu.txt");
while ($Ligne = <FIC>) {
	chomp($Ligne);
	$Sortie = $Ligne;
}
close (FIC);

$Sortie =~ /(\d)(\d)(\d)(\d)(\d)(\d)(\d)/;
$Compteur = "<img src=\"images/$1.gif\"><img src=\"images/$2.gif\"><img src=\"images/$3.gif\"><img src=\"images/$4.gif\"><img src=\"images/$5.gif\"><img src=\"images/$6.gif\"><img src=\"images/$7.gif\">";

open (FIC,"D:\\securite-enfance\\menu_accueil.htm");
while ( $Ligne = <FIC>){
	$Ligne =~ s/\"/\\"/g; 
	$Ligne =~ s/\@/\\@/g;
	$Code = 'print "'.$Ligne.'";';
	eval $Code;
}
close(FIC);