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

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