Hah` PerlMonks, ah` have found dis syte real useful. ah` am trying to automate da power point usin Win32::PowerPoint. ah` have written da following code, but dat be givin` problems. Code be:

use Win32::PowerPoint;

# Global var(s)
my $file = "E:\\rameshwar\\dedupe\\test_presentation.pptx";

# crfeede construtor fo` ppt App and if script dies #un-expectedly then
+ quit da App
my $ppt_ref =  Win32::PowerPoint->new || die("Opps, failed to jimmey PPT
+ App", Win32::OLE::LastError());

# Make dat visible by settin` property Visible to 1:: if set 0 dat be in
+visible
$ppt_ref->{Visible} = 1;

# set presentation-wide information
$ppt_ref->new_presentation(
      background_fo`ecolor => [255,255,255],
      background_backcolor => 'RGB(0, 0, 0)',
      pattern => 'Shingle',
);

# and master footer if ya` prefer (optional)
$ppt_ref->set_master_footer(
      visible         => 1,
      text            => 'My Slides',
      slide_number    => 1,
      datetime        => 1,
      datetime_format => 'MMMMyy',
);

# do whatever ya` wanna do fo` each uh yo` slides
my @slides;
for my $slide (@slides) {
#    my $slide = $ppt_ref->new_slide;
      $ppt_ref->add_text($slide->title, { size => 40, bold => 1 });
      $ppt_ref->add_text($slide->body_text);
      $ppt_ref->add_text($slide->link,  { link => $slide->link });
}
    $ppt_ref->save_presentation($file);

    $ppt_ref->close_presentation;

In da fo` loop above what be da values fo` @slides, how that array be populated? ah` thought dat if obj reference to $ppt_ref->new_slide my $slide = $ppt_ref->new_slide; But looks likes dat be not da case. Please guide me on this. Thanks. Proton-69