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