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

##</code><code>##

    $hispaddr = recv(SOCKET, $rtime, 4, 0) || die "recv: $!";

##</code><code>##

    $socket->recv($response, 1024);
    defined($response) || die "recv: $!";

##</code><code>##

    $socket->recv($response, 1024) || die "recv: $!";