#!/usr/bin/perl

use strict;
use GD::Simple;

GD::Simple->class('GD::SVG');

my $img = GD::Simple->new(500,500);
$img->bgcolor('white');
$img->fgcolor('blue');

my $g1 = $img->newGroup('circle in square');
$g1->rectangle(100,100,400,400);
$g1->moveTo(250,250);

my $g2 = $g1->newGroup('circle and boundary');
$g2->fgcolor('black');
$g2->bgcolor('red');
$g2->ellipse(200,200);

print $img->svg;