use strict;
use Chart::Lines;
my $obj = Chart::Lines->new or die "Chart does not work\n";
$obj->set ( title => 'Graph Test');
my @data = ( [ 'foo', 'bar', 'junk' ], [ 30.2,  23.5,  92.1   ] );    

# Should create a png file with graph
$obj->png ("test.gif", \@data);