#!/usr/bin/perl

use strict;
use warnings;

use SVG;

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

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

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

print $svg->xmlify;