#!perl -w
$| = 1;

use strict;
use Time::HiRes qw( sleep );

for ( 1 .. 100 ) {
    print "\r              \r${_}% Complete.";
    sleep( 0.33 );
}
[download]