#!/usr/bin/perl -s -w

use strict;
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;

$| = 1;

sub mysub {
    my @x_axis;
    my @y_axis;
    
    for (my $t=0;$t<200;$t++){
	$x_axis[$t] = $t*10;
        $y_axis[$t] = int(rand(100));
    }

    my $chart = Chart::Clicker->new;
    
    my $series = Chart::Clicker::Data::Series->new(
	keys    =>      \@x_axis,
	values  =>      \@y_axis,
    );

    my $dataset = Chart::Clicker::Data::DataSet->new(
	series  =>      [ $series ],
    );

    $chart->add_to_datasets($dataset);

    $chart->write_output('test.png');
}
    
for (my $x=0;$x<10000;$x++) {	
    &mysub;
    print ".";
}