$their_stdout = <<`END_CMDS`; die "oops: wstat $?, errno $!" if $?;
  (
     echo set password 'oracle';
     echo set current_listener 'LISTENER';
     echo status;
  ) | lsnrctl
END_CMDS