$PpptApp = Presentations(Presentation1)->Open("$input"), ReadOnly ->True;

##</code><code>##

$PpptApp = $PptApp->Presentations(Presentation1)->Open("$input"), ReadOnly ->True;

##</code><code>##


$PpptApp = $PptApp->Presentations->Open("$input"), ReadOnly ->True;

##</code><code>##


my $PpptApp = $PptApp->Presentations->Open("$input", 1);