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

use Image::Magick;

my $width = 50;
my $height = 300;
my $fill = 150;

my $image = Image::Magick->new(size => $width."x".$height);

$image->Read("xc:white");

$image->Draw(primitive   => "Rectangle",
             fill        => "blue",
             stroke      => "blue",
             strokewidth => 4,
             points      => "0,$height $width,$fill");

$image->Write("progress.png");
[download]