Select Code to Download

use strict;
use warnings;
use Win32::OLE;
...
}

$sht->Range("B2")->Insert({Shift=>xlDown});

use strict;
use warnings;
use Win32::OLE;
...
}

$sht->Range("B2")->EntireRow->Insert;