#!/usr/bin/perl

use 5.040.3;

my $barra = 120;
my $N = 1_000_000;

my $c = 0;
for (1 .. $N){
    print  "\r" . qw( - \ | / - \ | / )[ ++$c % 8 ] . " |" . "=" x int($barra*$c/($N+1)) . ">" .
      " " x int($barra*($N-$c)/($N+1)) . "| " . int(100*$c/$N) . " %";    
}				     

exit 2;