Select Code to Download

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

my $Workbook = $Excel->Workbooks->Open({Filename=>"test.xls"});
my $curSheet = $Workbook->Worksheets(1);
...
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