print( "Creating a presentation\n" ); my $ppt = $power->Presentations->Add(); $ppt->SaveAs($filename);