die "ADMIN,Cannot connect to $host:$port after 5 attempts $!" unless $sock;
say "ADMIN,connected" if $dbg;
-#print $sock "$mycall\r\n";
-#say "ADMIN,call $mycall sent" if $dbg;
+print $sock "$mycall\r\n";
+say "ADMIN,call $mycall sent" if $dbg;
my %d;
my %spot;