#!/usr/bin/perl -w

use strict;

$|++;

my $count;

my $N = 10_000_000;

while (++$count <= $N){ 
    print  "\r" . qw( · - \ | / )[ $count % 5 ] .
      " |" . "=" x int(25*$count/$N) . ">" .
      " " x int(25*($N-$count)/$N) . "| " .
      int(100*$count/$N) . "%  ";    
}
print "\n";

exit 1;