use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft PowerPoint';
my $app = Win32::OLE->new('PowerPoint.Application', 'Quit') || die "Can't open powerpoint\n";
my $pres = $app->Presentations->Open({FileName=>'test.ppt', ReadOnly=>1}) || print "Can't open presentation\n";