#!C:/Perl/bin/perl.exe
use strict;
sub Export_Excel{
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;  # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
                 || Win32::OLE->new('Excel.Application', 'Quit'); 
my $Book = $Excel->Workbooks->Open("D:\\Application\\tmp\\Report_Temp.xls"); 
my $Sheet = $Book->Worksheets('Report_Temp');
$Sheet->Cells(15,2)->{'Value'}='';
$Sheet->Cells(15,1)->{'Value'}='Test Successfully';
$Book->Save();
$Book->Close;
$Excel->quit();
}