forcer la sortie du print

Bonjour,

La formulation n'est peut-être pas très claire...
J'ai un script qui teste en boucle des serveur en faisant des ping
et qui envoie un mel et enregistre l'alerte dans une base.

Je voulai faire une bête temporisation, en affichant un . chaque seconde
pour ne pas s'inquiéter de l'inactivité, mais si sous win2000 avec activ
perl 5.6 j'ai bien l'affichage progressif des '.', sous linux,
la pause est faite en aveugle, et ce n'est qu'au \n à la fin que la
ligne de points s'affiche.

y-a un buffer sur STDOUT ou un truc du genre ?
Comment forcer la sortie immédiate du caratère ?



print "Debut:\n";
&jefaitlapause(15);
print "Fin !\n";

sub jefaitlapause {
my($tempo) = @_;
print "Tempo $tempo s ";
while ($tempo>0) {
print '.';
sleep(1);
$tempo--;
}
print "\n";
}