Salut,

essaie ça
#! /usr/bin/perl
#
$c=120000;

while ($c >=1){
print "\b" x length ($c);
$c--;
substr($c,0)=$c;
print $c;
}lami20j