You don't say what you are going to use it for. You didn't show any of your code where you attempted to create one. However, I'm in a good mood this afternoon so I'll give you a push in the right direction.

It's not very pretty but it creates a horizontal progress bar.

#/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";
[download]