Select Code to Download

    Rows("6:6").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

use strict;
use warnings;
...

my $row = 6;
$Excel->Worksheets(1)->HPageBreaks->Add({ Before => $Excel->Worksheets
+(1)->Range("A$row") });