#! /usr/bin/perl -w

use Chart::LinesPoints;

@data = map { [$_,$_] } (1..$ARGV[0]);
$obj=Chart::LinesPoints->new (700,500);
$obj->png ("testchart.png", \@data);

