You don't know how to do what?

If you need to understand SVG then https://www.w3.org/Graphics/SVG/ is a good place to start.

Or if it's just the perl part, there are modules in CPAN for dealing with SVG: see SVG for one.

It was for the perl part... Thank you for your help, I read more carefully the CPAN page for SVG module and I solved my problem.

RichardK,

++ for an excellent answer!

Regards...Ed

"Well done is better than well said." - Benjamin Franklin

Are you saying you want to:

• load the .svg, add some text, and then re-write the .svg with the added text?
• load the .svg and display it with some text added; leaving the original .svg unmodified?
• load the .svg; allow the user to interact with your program to add some text at specific points on the image and then save the modified image to disk?

The second one: load the .svg, add the text, save and display the modified image.

I think I am supposed to do something like this:

#!/usr/bin/perl
use warnings;
use strict;
use SVG;

# Open the file whicw will contain the modified image.
open(MAP_OUT, ">output.svg") || die "Error: unable to open output.svg:
+ $!\n";

# Create the SVG object.
my $svg = SVG->new(
    width => 1500,
    height => 1500
);

# Load the image.
my $map = $svg->image(
        x       => 0,
        y       => 0,
        width   => 1500,
        height  => 1500,
        '-href' => "map.svg",
        id      => "image_1"
);

# Add the text.
my $text = $svg->text(
        id     => "text_1",
        x      => 40,
        y      => 80,
        -cdata => "something"
    );

# Add some more text...

# Print the xml text on the output file.
print MAP_OUT $svg->xmlify;

# Open the .svg image with firefox.
system(firefox, output.svg);
[download]

Is it OK?