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

    # create an SVG object
    my $svg= SVG->new(width=>800,height=>600);
	

	my $cont_w = 500;
	my $cont_h = 100;
	my $cont_tbh = 19;
	
    # a 10-pointsaw-tooth pattern drawn with a path definition
    my $xv = [6, "C 2.676", 0, 0, 0, $cont_w, $cont_w, "C $cont_w", $cont_w - 2.676, $cont_w - 6, 6];
    my $yv = [0, 0, 2.676, 6, $cont_tbh, $cont_tbh, 6, 2.676, 0, 0, 0];

    my $points = $svg->get_path(
        x => $xv,
        y => $yv,
        -type   => 'path',
        -closed => 'true'  #specify that the polyline is closed
    );
	
    my $tag = $svg->path(
        %$points,
        id    => 'pline_1',
		style => {
			'fill-color' => 'green'
		}
    );	

	
    # now render the SVG object, implicitly use svg namespace
		print $svg->xmlify;

##</code><code>##

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg height="600" width="800" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
	<path d="M 6 0  L  C 2.676 0  L  0 2.676  L  0 6  L  0 19  L  500 19  L  500 6  L  C 500 2.676  L  497.324 0  L  494 0  L  6 0  z " id="pline_1" style="fill-color: green" /><!-- 
	Generated using the Perl SVG Module V2.49
	by Ronan Oger
	Info: http://www.roitsystems.com/
 -->
</svg>