#!/usr/bin/perl use strict; use warnings; use SVG; # create an SVG object with a size of 40x40 pixels my $svg = SVG->new( width => 40, height => 40, ); # add a circle $svg->circle( cx => 20, cy => 20, r => 18, ); # now render the SVG object, implicitly use svg namespace print $svg->xmlify, "\n";