Select Code to Download

  $obj->read(Blocking => 0);
  $obj->print($cliCommand);
  $output = $obj->waitfor($obj->prompt);

  $obj->read(Blocking => 0);
  $obj->print($cliCommand);
...
  }

  (process output in $s1_output)