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

my $end=18.75;
my $side=21.875;
my $flag=new SVG(width=>"100", height=>"100");

$flag->rectangle(x=>0, y=>0, width=>"100", height=>"100", fill=>"red");
$flag->polygon(points=>
    ($end+$side).','.($end+$side).' '.
    ($end+$side).','.$end.' '.
    ($end*2+$side).','.$end.' '.
    ($end*2+$side).','.($end+$side).' '.
    ($end*2+$side*2).','.($end+$side).' '.
    ($end*2+$side*2).','.($end*2+$side).' '.
    ($end*2+$side).','.($end*2+$side).' '.
    ($end*2+$side).','.($end*2+$side*2).' '.
    ($end+$side).','.($end*2+$side*2).' '.
    ($end+$side).','.($end*2+$side).' '.
    $end.','.($end*2+$side).' '.
    $end.','.($end+$side),
    fill=>"white"
);

print $flag->render;