view release on metacpan or  search on metacpan

eg/synopsis-svg  view on Meta::CPAN

use SVG qw(title);

my ($width, $height) = (500, 500);
my $stroke = 'black';
my $fill = 'white';

my $svg = SVG->new(
    width  => $width,
    height => $height,
);
$svg->title()->cdata('Data::Turtle');

my $style = $svg->group(
    id    => 'style-group',
    style => {
        stroke => $stroke,
        fill   => $fill,
    },
);

$style->rectangle(