I can't seem to pass the data from the Chart::OFC module to my flash object. If I dump the contents to a file and read it that way it works. Then code is below:

 
#!C:/Perl/bin/perl.exe

use warnings;
use strict;

use open_flash_chart;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use Chart::OFC;

print header, start_html( -title   => "Open Flash Demo"  );

my $data = Chart::OFC::Dataset->new( values => [ 1..10 ] );
my $pie = Chart::OFC::Pie->new( 
        title => 'Pie Test', 
        dataset => $data, 
        labels => [ 'a'..'j' ] 
    );

print '<script type="text/javascript" src="js/swfobject.js"></script>'
+;

print '<div id="my_chart"></div>' ."\n";
     
print '<script type="text/javascript">
var so = new SWFObject("open-flash-chart.swf", "ofc", "250", "200", "9
+", "#FFFFFF");';
print 'so.addVariable("data", '.$pie->as_ofc_data().');';

print 'so.write("my_chart");' . "\n";
print '</script>';

print end_html;
[download]

Any thoughts?