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

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