As Albannach mentioned, gif support has been removed due to the Unisys patent. Also, don't forget the die() call. You have a string in void context :)

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);
[download]

However, don't forget your audience! PNG support is not available in older browsers. Even newer ones tend not to support all of the features of PNG.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.