if ($slide->{HasNotesPage}){
      my $ph = $slide->{NotesPage}{Shapes}{Placeholders};
      if ($ph->{Count} >= 2){
        $ph->item(2)->{TextFrame}{TextRange}{Text} = "New Comment added\nline2\nline3";
        print "Note added\n";
      } else {
        print "Error - no placeholder for comment"
      }
    } else {
      print "No notes page\n";
    }
}