use strict "vars";
use Win32;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
my ($excel, $workbook, $sheet);

$excel = CreateObject OLE "Excel.Application";
print "excel <$excel>\n";

$excel -> {Visible} = 1;

$workbook = $excel    -> Workbooks -> Add;
print "workbook <$workbook>\n";

$sheet    = $workbook -> Worksheets("Sheet1");
$sheet                -> Activate;
print "sheet <$sheet>\n";