Transparency not working PerlMagick

Using PerlMagick 6.2.9-7 q8 in SuSE 10.0, transparency does
not work.
The following script demonstrates this:

#!/usr/bin/perl

use warnings;
use strict;

use Image::Magick;

my $pict = Image::Magick->new(size => '300x300');
$pict->Read("xc:yellow");

my $color  = 'rgba(0,200,200,100)';
my $color2 = 'rgba(100,100,0,200)';

$pict->Draw
 ( primitive   => 'rectangle'
 , points      => "100,100 200,200"
 , stroke      => $color
 , strokewidth => 1
 , fill        => $color
 );

$pict->Draw
 ( primitive   => 'circle'
 , points      => "100,150 150,225"
 , stroke      => 'red'
 , fill        => 'none'
 , strokewidth => 3
 );

$pict->Draw
 ( primitive   => 'polyline'
 , points      => "10,10 40,40 10,80 200,200
10,50"
 , stroke      => $color2
 , strokewidth => 1
 , fill        => $color2
 );

my $err  = $pict->Write
 ( filename    => 'gif:output.gif'
 , compression => 'LZW'
 );

warn $err if $err;

-- 
Regards,
               MarkOv

------------------------------------------------------------
------------
       Mark Overmeer MSc                               
MARKOV Solutions
       MarkOvermeer.net                          solutionsovermeer.net
http://Mark.Overmeer.net
                  http://solutions.overme
er.net
_______________________________________________
Magick-bugs mailing list
Magick-bugsimagemagick.org
http://studio.imagemagick.org/mailman/listinfo/magick-
bugs