Take a look at Chart::OFC. It uses a free flash widget that you feed a data file to. Chart::OFC creates that data file. There is a presentation that shows some basic usage. Also, here is some code for a line chart:

use warnings;
use strict;

use Chart::OFC;

my ( @data1, @data2, @data3 );

for ( 1 .. 1200 ) {
    push @data3, 1 + int( rand(7) );
    push @data2, 8 + int( rand(6) );
    push @data1, 14 + int( rand(6) );
}

my $chart = Chart::OFC::Grid->new(
    title       => 'Many data lines',
    title_style => '{font-size: 20px; color: #736AFF}',
    datasets    => [
        Chart::OFC::Dataset::Line->new(
            values    => \@data1,
            width     => 2,
            color     => '#9933CC',
            label     => 'Page Views',
            text_size => 10,
        ),
        Chart::OFC::Dataset::LineWithDots->new(
            values     => \@data2,
            solid_dots => 1,
            width      => 3,
            color      => '#CC3399',
            label      => 'Downloads',
            text_size  => 10,
            dot_size   => 5,
        ),
        Chart::OFC::Dataset::LineWithDots->new(
            values     => \@data3,
            solid_dots => 0,
            width      => 2,
            color      => '#80a033',
            label      => 'Bounces',
            text_size  => 10,
            dot_size   => 4,
        ),
    ],
    x_axis => Chart::OFC::XAxis->new(
        labels => [
            qw(January February March
              April May June
              July August September
              October November December)
        ],
        axis_label  => '',
        orientation => 'horizontal',
        label_steps => 2,
    ),
    y_axis => Chart::OFC::YAxis->new(
        axis_label => Chart::OFC::AxisLabel->new(
            label      => 'Open Flash Chart',
            text_size  => 12,
            text_color => '#736AFF',
        ),
        min         => 0,
        max         => 20,
        label_steps => 5,
    ),
);

print $chart->as_ofc_data();
[download]