#!/perl -w

use strict;
use Win32::OLE;

my $excel = new Win32::OLE('Excel.Application');

my $workbook = $excel->Workbooks->Open("Book1.xls");

$workbook->Worksheets('Sheet1')->Range('A1')->{Value} = 'perl writing to Excel';

$workbook->Save();

$excel->Quit();