or download this
$Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OL
+E->new('Excel.Application', 'Quit');
$Book = $Excel->Workbooks->Open( $templateFile );
#
#decoding code here
#
$Book->Worksheets($sheetNumber)->Range("A$Row:E$Row")->{Value} = [[$Ti
+meAbs,$TimeRel,$TimeLog,$Info,$SigValue]];