#! /usr/bin/perl -w

use Chart::LinesPoints;

@data=([2000..2020], [(18) x 21]);
  $obj=Chart::LinesPoints->new (600,400);
  $obj->set ('title' => "squeeze");
  $obj->set ('brush_size' => 3);
  $obj->set ('pt_size' => 3);
  $obj->set ('x_ticks' => 'vertical');
$obj->png ("foo.png",\@data);

