use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft PowerPoint';
$Win32::OLE::Warn = 2; # Throw Errors, I'll catch them

my $PptApp  = Win32::OLE->GetActiveObject('PowerPoint.Application')|| Win32::OLE->new('PowerPoint.Application', 'Quit'); 

$PptApp->{Visible} = 1;
my $Presentation = $PptApp->Presentations->Add();
#my $Presentation = $PptApp->Presentations->Open({FileName=>'<SOMEFILENAME>',ReadOnly=>1});

my $Slide = $Presentation->Slides->Add({Index=>1 , Layout=>ppLayoutText});
   $Slide->{Name} = "Slide1";

my $TextBox=$Slide->Shapes->AddTextbox({Orientation=>1, 
                                      Left=>5, 
                                      Top=>5,
                                      Width=>250,
                                      Height=>250,});
                                      
   $TextBox->TextFrame->TextRange->{Text} ="Big Ole Test";

my $Title=$Slide->Shapes->{Title};
   $Title->TextFrame->TextRange->{Text} ="Title Test";
   
my $NewSlide = $Slide->Duplicate();
   $NewSlide->{Name} = "Slide2";