#!/usr/bin/perl

use strict;
use warnings;
use Imager;
use Imager::Fill;

my $fill = Imager::Fill->new(type => "opacity",
           other   => $fill,
           opacity => 0.25);