#!/usr/bin/perl -w

use strict;

BEGIN {
  push @INC , '../';  
  push @INC , '../SVG';
}

use SVG;

# create an SVG object
my $svg= SVG->new(-inline=>0);
$svg->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y');
# now render the SVG object, implicitly use svg namespace
print "Content-type: image/svg+xml\n\n";

print $svg->xmlify;