#!/usr/bin/perl
prog(1,12,20,1); # start, end, number of "=" when 100%, pause (in seconds)
sub prog() {
   $| = 1;
   my($start, $end, $del, $pause) = @_;
   my $interval = $end/$del;
   for(my $i = $start; $i <= $end; $i++) {
       my $percent = ($i/$end)*100;
       my $step = int($i/$interval);
       printf("%3d%% %s%s\r", $percent, "=" x $step, ">");
       sleep $pause;
   }
}
# © Pashkela for antichat.ru, 2010