for (my $i = 1; $i < 5; $i++) {
        $slide = $ppt->Slides->Add($i, ppLayoutBlank);
    }