$call = uc $mycall if !$call;
$connsort = lc shift @ARGV;
$connsort = 'local' if !$connsort;
$call = uc $mycall if !$call;
$connsort = lc shift @ARGV;
$connsort = 'local' if !$connsort;
$conn = Msg->connect("$clusteraddr", $clusterport, \&rec_socket);
$conn->send_now("A$call|$connsort");
Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
$conn = Msg->connect("$clusteraddr", $clusterport, \&rec_socket);
$conn->send_now("A$call|$connsort");
Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);