use Win32::OLE;
use constant xlDown => -4121;
use constant xlFormatFromLeftOrAbove => 0;

my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') ||
                   Win32::OLE->new('Excel.Application'));

$_app_object->Workbooks->Open({Filename => 'C:\\Proyecto\\csv\\T3683.csv.xls'});
$_app_object->Rows('1:10')->Select();
$_app_object->Selection->Insert({Shift => xlDown, CopyOrigin => xlFormatFromLeftOrAbove});
$_app_object->Range('B6')->Select();
$_app_object->ActiveCell->{FormulaR1C1} = 'Report';
$_app_object->Range('C7')->Select();