my $TextBox = $slide->Shapes->AddTextbox({
      Orientation => 1, Left => 5, Top => 5,
      Width => 250, Height => 250 });
$TextBox->TextFrame->TextRange->{Text} ="Big Ole Test";
$TextBox->{'Fill'}{'BackColor'}{'RGB'} = 255; # 0000ff BlueGreenRed;
$TextBox->{'Fill'}->Solid;

##</code><code>##

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";
    }
}