Select Code to Download

my $y = 0;
...
print "\"\n";
print "    style=\"stroke: black; width: 1px; fill: none;\"/>\n";
print "</svg>\n";

my $y = 0;
my @list;
...
print <<SVG_FOOTER;
</svg>
SVG_FOOTER

print <<PAGE_HEADER;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
...
print <<SVG_FOOTER;
</svg>
SVG_FOOTER

print <<PAGE_HEADER;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
...

</svg>
SVG_FOOTER

print <<PAGE_HEADER;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg  PUBLIC "-//W3C//DTD SVG 1.0//EN"
...
   style="stroke: black; width: 1px; fill: none;"/>
</svg>
SVG_BODY