-while (($nfound = select($rout=$rin, undef, undef, 0.001)) >= 0) {
-
+push @out, $self->msg('call1', 'AA6HF');
+foreach $l (@list) {
+ $t->open(Host => "jeifer.pineknot.com",
+ Port => 1235,
+ Timeout => 5);
+ if ($t) {
+ $t->print(uc $l);
+ Log('call', "$call: show/call \U$l");
+ while (my $result = $t->getline) {
+ push @out,$result;
+ }
+ $t->close;
+ } else {
+ push @out, $self->msg('e18', 'AA6HF');
+ }