perl and SVG