Use of uninitialized value in concatenation (.) or string at ./tkeditor line 62.print() on closed filehandle FILE_S at ./tkeditor line 64.

##</code><code>##

     60 sub SaveAs {
     61  $save = $main->getSaveFile(-filetypes => $types, -initialfile => $file);
     62  if ( defined $save ) {
     63  open(FILE_S, "> $save");
     64  my $content = $text->get('1.0', 'end');
     65  print FILE_S $content;
     66  close(FILE_S);
     67  }
     68  else {
     69  return;
     70  }
     71 }

##</code><code>##

Use of uninitialized value in concatenation (.) or string at ./tkeditor line 76.
readline() on closed filehandle FILE_O at ./tkeditor line 77.