#/usr/bin/perl
use strict;
use warnings;

my $value = 0.86; # 86% done
my $progress = int(80 * $value); # 80 characters wide
my $progbar = "";

for my $i (0 .. 79) {
 if ($i <= $progress) {
   $progbar .= "=";
 } else {
   $progbar .= "+";
 }
}
print "$progbar\n";