my $pres = $ppt->NewPresentation()->Add("true");
$pres->Slides->Add(1,1);
$pres->SaveAs("d:/bizuth.ppt");