die "no editor found\n"
  unless my $editor = $ENV{EDITOR} || $ENV{VISUAL};
print "predefined editor: $editor\n";