use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const "Microsoft Excel";

my $xls = Win32::OLE->new('Excel.Application');
$xls->Workbooks->Add();
$xls->{Visible} = 1;
$xls->Sheets("Sheet1")->Range('A1')->{Value} = 'Left';
$xls->Sheets("Sheet1")->Range('B1')->{Value} = 'Right';
$xls->Sheets("Sheet1")->Range('C1')->{Value} = 'Center';

for (2 .. 5) {
    $xls->Sheets("Sheet1")->Range("A$_")->{Value} = $_;
    $xls->Sheets("Sheet1")->Range("B$_")->{Value} = $_ * 2;
    $xls->Sheets("Sheet1")->Range("c$_")->{Value} = $_ * 3;    
}

$xls->Charts->Add();
$xls->ActiveChart->SetSourceData({ 
              Source =>$xls->Sheets('Sheet1')->Range("A1:C5"), 
              PlotBy =>xlColumns,
         });
$xls->ActiveChart->Location({ Where => xlLocationAsObject, Name =>'Sheet1'});