Help for this page
$presentation->SaveAs("SAVED_" . $filename); $presentation->Close; undef $ppt; # Clean up Powerpoint $mw->messageBox (-title => "message", -message=>"DONE!", -icon=> 'info +');
our $ppt; sub save_PPT { ... 'PowerPoint.Application', sub { $_[0]->Quit } ) or return 'error'; # ---