#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::WriteExcel::Utility;

my( $row, $name ) = @_;

my $workbook  = Spreadsheet::WriteExcel->new('chart.xls');
my $worksheet = $workbook->add_worksheet();

my $chart = $workbook->add_chart( type => 'line' );
$chart->set_title( name => $name );
foreach my $i ( 1 .. 6 ) {
    my $rowi;
    my $maxcol;
    $chart->add_series(
         name        => my $header,
         catagories  => xl_range_formula( 'Sheet1', 1, 1, 2, $maxcol ),
         values      => xl_range_formula( 'Sheet1', $rowi, $rowi, 2, $maxcol ),
    );
}