my $y = 0;
my @list;

print <<PAGE_HEADER;
<?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">
PAGEHEADER

print <<SVG_HEADER;
 <svg height="200" width="200">
  <line x1="0" y1="0" x2="80" y2="0" />
SVG_HEADER

print "  <polyline\n";
print "    points=\"";

foreach (@scores) {
    if ($_) {
        push(@list,$y++);
        push(@list,$_ * -1.0);
    }
}
print join(",",@list);
print "\"\n";
print "    style=\"stroke: black; width: 1px; fill: none;\"/>\n";

print <<SVG_FOOTER;
</svg>
SVG_FOOTER