use strict;
use warnings;

$| = 1;     # enable auto-flush

foreach my $i ( 1 .. 5 )
{
    my $output = '*' x (50 - 10*$i);
    print "\r$i : $output", " "x20;
    sleep 1;
}

print "\n";