my $l;
my @out;
+return (1, "SHOW/CALL <callsign>, e.g. SH/CALL g1tlh") unless @list;
+
use Net::Telnet;
my $t = new Net::Telnet;
Timeout => 5);
if ($t) {
$t->print(uc $l);
+ Log('call', "show/call $l");
while (my $result = $t->getline) {
push @out,$result;
}