#!/usr/bin/perl
use warnings;
use strict;

use Spreadsheet::WriteExcel;

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

# Add a worksheet
my $worksheet = $workbook->add_worksheet('data');

$worksheet->write_row( $. - 1, 0, [split] ) while <DATA>;

my $chart5 = $workbook->add_chart( type => 'line', embedded => 1 );

# Configure the series.
$chart5->add_series(
    categories => '=data!$A$2:$A$7',
    values     => '=data!$B$2:$B$7',
    name       => 'Test data series 1',
);

# Add some labels.
$chart5->set_title( name => 'Results of sample analysis' );
$chart5->set_x_axis( name => 'Sample number' );
$chart5->set_y_axis( name => 'Sample length (cm)' );

# Insert the chart into the main worksheet.
$worksheet->insert_chart( 'E2', $chart5 );

__DATA__
Value1	Value2
1	5
2	0
3	30
4	15
5	75