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

my $flag=new SVG(width=>100, height=>60);
$flag->rectangle(x=>10, y=>10, width=>80, height=>40,
	         fill=>"red", stroke=>"blue",
		 "stroke-opacity"=>"0.5", "stroke-width"=>10);

print $flag->render;