use IO::Handle;

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