use Win32::OLE::Const 'Microsoft PowerPoint';
$Presentation->SaveAs("$outfile", ppSaveAsPDF, 1);