#!/usr/bin/perl 
use strict;
use warnings;
use IO::Handle;

STDOUT->autoflush(1);

foreach my $num (0 .. 10) {
    print "\rCount: $num";
    sleep(1);
}