my $book1 = $Excel->Workbooks->Open("c:\\temp.xls");
my $sheet = $book1->Worksheets("yabadabadoo");
my $selection = $sheet->Range("A1:E100");

$selection->Subtotal->(GroupBy => 1, Function => xlCount, TotalList => Array(3), Replace => "True", PageBreaks => "True", SummaryBelowDate => "True");