#! /bin/bash
convert -size 100x100 -stroke SeaGreen -fill palegreen -strokewidth 2 \
xc:white -draw 'translate 50,50 circle 0,0,25,0' /share/circle_script.jpg

##</code><code>##

#! /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");