use Win32::OLE::Variant;
use Win32::OLE qw(in with);
use Win32::OLE::Const "Microsoft Excel";
use strict;
my $excel = Win32::OLE->GetActiveObject('Excel.Application')||die "no";
	$excel -> Windows("SummarySheet.xls") -> Activate;
	my $workbook = $excel    -> Activewindow;
	my $sheet    = $workbook -> Activesheet;
	$sheet -> Cells(1,1) -> {Value} = "This works fine.";