Select Code to Download

$ssh->waitfor('COR>',2) or die "Where is prompt";

...
          $ssh->send("\x1D");
       print $line . "\n";
        }

$ssh->waitfor('COR>',2) or die "Where is prompt";
$ssh->send("\x1D");
...
          $ssh->send("bogus");
       print $line . "\n";
         }