Select Code to Download

use strict;
use Win32::OLE qw(in with);
...

$PptApp->{Visible} = 1;
  my $Presentation = $PptApp->Presentations->Open({FileName=>'<SOMEFIL
+ENAME>',ReadOnly=>1});