Select Code to Download

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
...
$Word->Selection->TypeText ({ Text => $mytxt});
$Word->Selection->MoveRight({Count => 1});
$Word->Selection->TypeText ({ Text => "A little more text"});

use strict;
use Win32::OLE qw(in with);
...
   
my $NewSlide = $Slide->Duplicate();
   $NewSlide->{Name} = "Slide2";

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
...
           $atch->SaveAsFile($filename);
       }
   }