my $ppoint = Win32::OLE->new('PowerPoint.Application', 'Quit');

my $Presentation = $ppoint->Presentations->Open("$infile") || die("Unable to open document ", Win32::OLE->LastError()) ;

$Presentation->ExportAsFixedFormat("$outfile", 'ppFixedFormatTypePDF', 'ppFixedFormatIntentPrint', "msoCTrue", "ppPrintHandoutHorizontalFirst", "ppPrintOutputFourSlideHandouts", "msoFalse", "", "" , "", "False", "False", "False", "False", "False");