use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $exlM			= Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit') || die "Can'nt attach to excel" ;
$exlM->{DisplayAlerts}=0;
my $workbook= $exl->Workbooks->open("D:/Perl/$view_dataM");
my $sheet= $workbook->Worksheets(1);
....
...
$sheetM->cells($a,4)->{Value}="Value";
$sheetM->Save();
$workbookM->Quit;