$connect->print("$rtrv");
(@prematch,$match) = $connect->waitfor('/COMPLD/');
while (@lines = $connect->getlines(Timeout => 1)) {
  print "Got some lines:";
  print @lines;
}