use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

# Start Excel and make it visible
# get already active Excel application or open new
my $xlApp = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
$xlApp->{Visible} = 1;

# Open existing workbook
my $xlFile = 'C:/wt138.xls';
my $xlBook = $xlApp->Workbooks->Open($xlFile);
my $sheet = $xlBook->Worksheets(1);

my $chart = $xlBook->Charts->Add;
$chart->{ChartType} = xlXYScatterLines;
$chart->SeriesCollection->NewSeries;
$chart->SeriesCollection(1)->{XValues} = "=Sheet1!A1:A10";
$chart->SeriesCollection(1)->{Values} = "=Sheet1!B1:B10";
$chart->SeriesCollection(1)->{Name} = "=Sheet1!B1";
$chart->SeriesCollection->NewSeries;
$chart->SeriesCollection(2)->{XValues} = "=Sheet1!C1:C10";
$chart->SeriesCollection(2)->{Values} = "=Sheet1!D1:D10";
$chart->SeriesCollection(2)->{Name} = "=Sheet1!E1";
$chart->{ChartTitle} = "Freq Vs. Psd";