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

my $svg=new SVG(width=>"300", height=>"100");

my $group=$svg->group(
    "stroke-width"=>15, stroke=>"blue",
    fill=>"skyblue"
);

my $s=$svg->get_path(
    x => [90,10,10,90,90,10],
    y => [10,10,50,50,90,90],
    -type => "polyline"
);

my $v=$svg->get_path(
    x => [110,150,190],
    y => [ 10, 90, 10],
    -type => "polyline"
);

my $g=$svg->get_path(
    x => [290,210,210,290,290,250],
    y => [ 10, 10, 90, 90, 50, 50],
    -type => "polyline"
);

$group->polyline(%$s);
$group->polyline(%$v);
$group->polyline(%$g);

print $svg->render;