Workbooks.Open Filename:="C:\Proyecto\csv\T3683.csv.xls"
    Rows("1:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "Report"
    Range("C7").Select

##</code><code>##

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();