Perl 5 マスター Wiki

#!/usr/bin/perl

use Term::ProgressBar ;

use constant MAX => 100;

my $progress = Term::ProgressBar->new(MAX);

my $cnt = 0;
for (0..MAX) {
    $cnt++ ;
    if( $cnt == 10 ) {
        sleep(1);
        $progress->update($_);
        $cnt=0;
    }
}

print "\nDONE\n";