#! perl -slw
use strict;
use IO::Socket;
use XML::Simple;
#use Data::Dumper;

$SIG{PIPE} = "IGNORE";
$\="\n";

my $img = '"http://updraft.unl.edu/~uas/uas/uas.png"';
my $post_time;
my $test;
my $xs = XML::Simple->new( RootName=>'Telemetry', XMLDecl => 1);

for (;;){
    
    my $tele_client = IO::Socket::INET->new( 'localhost:12345' ) or print $!;
    my $way_client = IO::Socket::INET->new( 'localhost:56789'  ) or print $!;

    while( <$tele_client> ) {
    #################################
    }
    print "SLEEP";
    sleep 10;
}