#!/usr/bin/perl -w
use strict;
use XML::Writer;

my $image_height = 60;
my $image_width = 200;

my $writer = XML::Writer->new();
$writer->xmlDecl('UTF-8');
$writer->doctype('svg','-//W3C//DTD SVG 20001102//EN',
'http://www.w3.org/TR/2000/CR-SVG-20001102/DTD/svg-20001102.dtd');

$writer->startTag('svg',
                   height => $image_height,
                   width  => $image_width);

$writer->emptyTag('rect',
                   height => $image_height,
                   width  => $image_width,
                   fill   => '#005580');

$writer->startTag('g',
                   id => 'mainGroup',
                   transform => 'translate(24,42)',
                   style => 'font-size:42;font-weight:bold;');

$writer->dataElement('desc',
                     'JAPH with an XML twist. Features a simple drop shadow.');

$writer->startTag('text',
                   transform => 'translate(3, 3)',
                   style => 'fill:#003955');

$writer->characters('<japh/>');
$writer->endTag('text');

$writer->startTag('text',
                   style => 'fill:#FFFFFF');
$writer->characters('<japh/>');
$writer->endTag('text');
$writer->endTag('g');
$writer->endTag('svg');
$writer->end();