#!/usr/bin/perl
#
use strict;
use CGI;
use DBI;

#-----------------------------Variables communes
my %IndexClient;
my @row;
#....

#----------------------------------------
#        FillListe( $Indx, $Ref, $Ville,$Tel,$TypeClient)
my $dbgfill=0;
sub FillListe {
		$dbgfill++;
	my $Indx = $IndexClient{$_[0]};
		#...	
}
#---------- Sortie des en tetes

print "Content-type: text/html\n";
print "\n";
#...
my $ligcnt;
while ( @row = $cursor->fetchrow )
{
	
	FillListe($NumClient,$Ref,$row[2], $row[1],@row[3]);
	$NumeroClient[$IndexClient{$NumClient}]=-1;
	$ligcnt++;
}

$cursor->finish;
print "<P> $ligcnt $dbgfill</P>";