^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ARPA/9000 NETWORKING^^^^^^^^^^^^^^^^^^^^^^^^^^@#%
  Timestamp            : Fri Jul 12 PST 2013 15:30:40.370025
  Process ID           : [ICS]              Subsystem        : NS_LS_TCP
  User ID ( UID )      : -1                 Trace Kind       : PDU IN TRACE
  Device ID            : -1                 Path ID          : 0
  Connection ID        : 0
  Location             : 00123
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-------------------------------- TCP Header ----------------------------------
sport:   1998   -->   dport:  61236     flags: PUSH ACK 
       seq: 0xfd2fed0a  urp: 0x0      chksum: 0xe16a   data len: 519  
       ack: 0x2f975faf  win: 0x1ed9   optlen: 0   
-------------------------------- XOT -----------------------------------------
   0: 00 00 02 03 10 01 22 33 20 20 20 20 20 20 20 20  ......"3        
  16: 4a 42 48 42 30 30 32 39 30 30 30 30 30 30 32 30  JBHB002900000020
  32: 30 31 30 30 30 30 30 30 30 30 30 30 33 33 31 36  0100000000003316
  48: 37 36 34 34 31 20 20 20 20 20 20 20 20 20 20 20  76441           
  64: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
 < printing suppressed for one or more repetitions of the previous line >
 112: 20 20 20 20 20 20 20 20 20 20 30 32 30 37 32 37            020727
 128: 36 33 35 30 37 20 30 32 20 20 20 20 20 20 20 20  63507 02        
 144: 20 20 20 20 20 20 31 33 30 37 31 32 31 34 34 33        1307121443
 160: 33 32 30 30 30 31 31 30 20 20 20 20 20 20 20 20  32000110        
 176: 4a 42 48 42 30 30 30 34 30 30 30 30 30 30 33 30  JBHB000400000030
 192: 30 31 30 30 30 30 30 30 30 30 30 38 39 36 33 32  0100000000089632
 208: 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20  00              
 224: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
 < printing suppressed for one or more repetitions of the previous line >
 272: 20 20 20 20 20 20 20 20 20 20 30 32 30 37 32 37            020727
 288: 36 33 38 30 30 20 30 32 20 20 20 20 20 20 20 20  63800 02        
 304: 20 20 20 20 20 20 31 33 30 37 31 32 31 34 34 34        1307121444
 320: 31 31 30 30 30 30 33 33 20 20 20 20 20 20 20 20  11000033        
 336: 4a 42 48 42 30 30 31 34 30 30 30 30 30 30 32 30  JBHB001400000020
 352: 30 39 30 30 30 30 30 30 30 30 30 35 32 30 37 34  0900000000052074
 368: 34 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20  45              
 384: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
 < printing suppressed for one or more repetitions of the previous line >
 432: 20 20 20 20 20 20 20 20 20 20 39 39 00 00 00 00            99....
 448: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
 < printing suppressed for one or more repetitions of the previous line >
 512: 00 00 00 00 00 00 00 -- -- -- -- -- -- -- -- --  ................

 
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvARPA/9000 NETWORKINGvvvvvvvvvvvvvvvvvvvvvvvvvv@#%
  Timestamp            : Fri Jul 12 PST 2013 15:30:40.370127
  Process ID           : 2095611            Subsystem        : NS_LS_TCP
  User ID ( UID )      : 111                Trace Kind       : PDU OUT TRACE
  Device ID            : -1                 Path ID          : 0
  Connection ID        : 0
  Location             : 00123
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-------------------------------- TCP Header ----------------------------------
sport:   61236   -->   dport:  1998     flags: PUSH ACK 
       seq: 0x2f975faf  urp: 0x0      chksum: 0x1b     data len: 7    
       ack: 0xfd2fef11  win: 0x8000   optlen: 0   
-------------------------------- XOT -----------------------------------------
   0: 00 00 00 03 10 01 41 -- -- -- -- -- -- -- -- --  ......A.........

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
use MIME::Base64;

my ($size);
my $host = shift || "19.25.15.22";
my $port = shift || 1998;

my $dir = "/acecdev/nv2am/bh";
my $data = `cat $dir/cdr-data.dat |sed 's/ //g'`;
my $binary = pack ("H*", $data);

print "DATA : $data\n";
print "ASCII: $binary\n";

# auto-flush on socket
$| = 1;

# create a connecting socket
my $socket = new IO::Socket::INET (
    PeerHost => $host,
    PeerPort => $port,
    Proto => 'tcp',
);
die "cannot connect to the server $!\n" unless $socket;
print "Connected to server [$host] with port $port\n";

# data to send to a server
if ($socket->send($binary)) {
        $size = $socket->send($binary);
        print "Sent binary data as request to $host [length $size]\n";
} else {
        print "message not sent\n";
}

# notify server that request has been sent
shutdown($socket, 1);

# read the message sent by server.
#my $serverdata = <$socket>;
#print "Message from Server : $serverdata \n";

# Send some message to server.
#my $clientdata = "This is the Client speaking :)";
#print $socket "$clientdata \n";

# receive a response of up to 1024 characters from server
my $response = ""; $
socket->recv($response, 1024);
print "received response: $response\n";

$socket->close();

##</code><code>##

DATA : 4A4248423030303430303030303033303031303030303030303030383936333230302020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020203032303732373633383030203032202020202020202020202020202031333037313231343434313130303030333320202020202020204A4248423030313430303030303032303039303030303030303030353230373434352020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020203939000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

ASCII: JBHB000400000030010000000008963200                                                                        02072763800 02              130712144411000033        JBHB001400000020090000000005207445                                                                        99 

Connected to server [19.25.15.22] with port 1998
Sent binary data as request to 19.25.15.22 [length 344]
Message from Server :