use IO::Handle;
STDOUT->autoflush(1);

while ($num) {
   print "$num\r";
   $num--;
   sleep 1;
}

##</code><code>##

use IO::Handle;

while ($num) {
   print "$num\r";
   STDOUT->flush();
   $num--;
   sleep 1;
}