#!/usr/local/bin/perl -W

$|=1;
while(1){
    for (0..99_999){
	$count++;
	# hacer algo bruto y útil
    }
    sleep(1);
    print "\r$count";
}

__END__

Introduciendo un límite de velocidad razonable con sleep se puede conseguir
  reducir la carga de la CPU de 1 a .01