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

my $flag=new SVG(width=>"1.0in", height=>"0.6in");
$flag->rectangle(x=>0, y=>0, width=>"1.0in", height=>"0.6in", fill=>"white");
$flag->circle(cx=>"0.5in", cy=>"0.3in", r=>"0.2in", fill=>"red");

print $flag->render;