Rows("1:1").Select
Selection.Copy
Rows("2:2").Select
Selection.Insert Shift:=xlDown

##</code><code>##

my $Workbook = $Excel->Workbooks->Open({Filename=>"test.xls"});
my $curSheet = $Workbook->Worksheets(1);
$curSheet->Rows("1:1")->Select;
$curSheet->Rows("1:1")->Copy;
$curSheet->Rows("2:2")->Select;
$curSheet->Rows("2:2")->Insert(Shift => 'xlDown');

OLE exception from "Microsoft Office Excel":
Unable to get the Insert property of the Range class
Win32::OLE(0.1701) error 0x800a03ec
    in METHOD/PROPERTYGET "Insert" at C:\test.pl line 6