Select Code to Download

#! /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

#! /usr/bin/perl

...
    stroke => 'SeaGreen', strokewidth => 2, fill => 'palegreen',
    points => '0,0,25,0' );
$p->Write("/share/circle_perl.jpg");