sub WriteInfo {

my ($addr, $port, $Input) = @_;
 $socket = IO::Socket::INET->new
(     Proto    => "tcp",
     PeerAddr => $addr,
     PeerPort => $port, );
 unless ($socket) { die "cannot connect to remote" }   

while (1)

 {      $socket->send($Input);  } 

}

sub ReadData {

while (1)  { my $ExecutionResult = $socket->recv( $recv_data, 3); my $DataLength =  $socket->recv( $recv_data, 8); $DataLength =~ s/^0+// ; my $decval = hex($DataLength); my $Data = $socket->recv( $recv_data, $decval); return($Data);

 }