#!/usr/bin/perl 

use strict;
use IO::Socket;
our $iroam_req = 'FindMin TLK   91271558098436895219S       95TestRSU333333333                                888888885555520070718103045';
our($sock);

main_process();

sub main_process{
    print "main process sub....\n";
      open_socket();
      print $sock $iroam_req;
      ####close($sock);
      ###sleep 5;
      ###open_socket();
      ###print $sock $iroam_req;
      ###close($sock);
      ###sleep 5;
}

sub open_socket{
    $sock = new IO::Socket::INET (
            PeerHost=> '172.17.8.201',
            PeerPort => '18490',
            Proto => 'tcp',
            );
die "Could not create socket: $!\n" unless $sock;
    
}