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

my $svg = SVG->new(width => 600, height => 600);

my $viereck=$svg->group(id => 'gr_viereck')
-> rectangle(id=>'viereck1', 'stroke' => 'red', 'fill'=>'yellow', x=>0, y=>0, width=>50, height=>50)

-> rectangle(id=>'viereck2', 'stroke' => 'blue', 'fill'=>'white', x=>100, y=>100, width=>150, height=>150)
;

# das hier soll das eigentliche Ziel sein:
my $v -> use(-href=>'#gr_viereck', transform=>'translate(250, 250) scale(0.9)');

print $svg->xmlify;