## Wait for login prompt.
  $self->waitfor(-match => '/login[: ]*$/i',
                 -match => '/username[: ]*$/i')
      or do {
          return &$error("read eof waiting for login prompt")
            if $self->eof;
          return &$error("timed-out waiting for login prompt");
      };