#!/usr/bin/perl

use strict;
use warnings;

use SVG;

# create an SVG object
my $svg = SVG->new(
    width  => 100,
    height => 100,
);
$svg->pi('we are surround you', 'surrender all your bases');
$svg->comment('I am a comment', 'and another comment');
$svg->circle(
    cx => 100,
    cy => 100,
    r  => 50,
    id => 'circle_in_group_y',
);

# now render the SVG object, implicitly use svg namespace
print $svg->xmlify(-dtd=>'http://this-is-my-dtd.html.hereIam');