#! /usr/bin/perl

use warnings;
use strict;
use Image::Magick;

my $p = Image::Magick->new;
$p->Set( size => '100x100');
$p->Read("xc:white");
$p->Draw( primitive => 'circle' ,translate => "50,50", 
    stroke => 'SeaGreen', strokewidth => 2, fill => 'palegreen',
    points => '0,0,25,0' );
$p->Write("/share/circle_perl.jpg");