my $ex = Win32::OLE->GetActiveObject'Excel.Application')
      || Win32::OLE->new('Excel.Application', 'Quit');

   $book = $ex->Workbooks->Add;
   $sheet = $book->Worksheets(1);
# designate row 1 and 2 as header rows 
   $sheet->PageSetup->{PrintTitleRows} => "1:2";
# add a page break
   $sheet->HPageBreaks->Add({After=>ActiveCell});