print in PERL

[Leo Hadacz]

Nazdarek,

mam nasledujici kratky programek:

--------------------------------------------------

#!/usr/bin/perl

local($count);
$count=0;

$podminka=1;

while ($podminka) {
  sleep 2;
  $count++;
  if ($count > 10) {
    print "Sorry. Try again later.\n";
    goto EXIT;
  } else {
    print $count," ";
  }
};

print "Zvladli jsme to.\n";

EXIT:
exit 0;

--------------------------------------------------

Vystupem je 

1 2 3 4 5 6 7 8 9 10 Sorry. Try again later.

Jenze ja chci, aby se cisla 1..10 vypisovala postupne kazde 2 sekundy.
Namisto toho si to PERL uklada nekam do bufferu a vypise to vsechno zaraz az
se znakem \n.

Pouzivam verzi 5.0003. Ve verzi 4.xxxx to fungovalo tak, jak jsem ocekaval.

Co mam udelat, aby to jelo tak, jak chci? Diky.

Leo

-- 

 _                 _    _     hadacz na math.muni.cz
  |    ____  ___    |    | __    __    __    ___  ___       ("`-/")_.-"'``-._.:
  |     _  |    \   |___ |   \     \     \      \    \       . . `; -._    )-' 
  |      |   /   \       | |_ \  |  \  |_ \  /       /      (v_,)'  _  )`-.\  
  |___  |__  \_  /  |    |     \ |__ \     \ \_     /_     _.- _..-_/ / ((,'
      |    |    /   |    | |   /     / |   /    /     |  ((,.-'   ((,/  
www: http://www.math.muni.cz/~hadacz/