#!/usr/bin/perl -wT
    use strict;


    use GD::Simple;
    my ($width, $height) = $data =~ 
        m!<svg\swidth="(\d+)"\sheight="(\d+)"!xmsg;
    
    my $img         = GD::Simple->new($width,$height);
    $img->fgcolor('black');
    
    # get all <text>
    for(split/\n/,$data) {
        if($_ =~ m!<text.*</text>!xms) {
            my ($x, $y, $label) = $_ =~ 
                m!<text\sx="([\d\.]+)"\sy="([\d\.]+)".*>(.*)</text>!xms;            
            if (defined $label) {
                $img->moveTo(int $x,int $y);
                $img->string($label);
            }              
        }
    }
    
    
    print CGI::header('image/png'), $img->png;
    exit;