sub flush {
   my $h = select($_[0]); my $a=$|; $|=1; $|=$a; select($h);
}

sub show_progress {
   my ($progress) = @_;
   my $stars   = '*' x int($progress*10);
   my $percent = int($progress*100);
   $percent = $percent >= 100 ? 'done.' : $percent.'%';
   print("\r$stars $percent");
   flush(STDOUT);
}

show_progress(1/4);
sleep(1);
show_progress(2/4);
sleep(1);
show_progress(3/4);
sleep(1);
show_progress(4/4);
[download]