#!/usr/bin/perl
use strict;
use warnings;
use utf8;
$|=1;
my $arg = 0;
for(1...20)
{
  $arg = $_*5;
  printf("\r[%-20s] % u%%",'>'x$_,$arg);
  sleep(1);
}
print "\n";