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

my $svg=new SVG(width=>500, height=>500, viewBox=>"0 0 100 100");
my $start="10,10";
my $end="90,10";

for my $x (10,30,50,70,90) {
    $svg->comment("The curve");
    $svg->path(d=>"M$start Q".$x.",90 $end",
               fill=>"none", stroke=>"black", "stroke-width"=>0.1);
    $svg->comment("The control point");
    $svg->line(x1=>$x, y1=>90, x2=>$x, y2=>90,
               stroke=>"black", "stroke-linecap"=>"round");
    $svg->comment("The asymptotes");
    $svg->line(x1=>$x, y1=>90, x2=>10, y2=>10,
               stroke=>"grey", "stroke-dasharray"=>0.5,
               "stroke-width"=>0.1);
    $svg->line(x1=>$x, y1=>90, x2=>90, y2=>10,
               stroke=>"grey", "stroke-dasharray"=>0.5,
               "stroke-width"=>0.1);
}

print $svg->render;