use Socket;

$iaddr = inet_aton($IMS_SERVER) or die "error could not connect to IMS'

$paddr = sockaddr_in($IMS_PORT, $iaddr);

$proto = getprotobyname('tcp');

$IRM_message = pack "NnnA8NNA8nnA8A8A8A8A8A8nnA$msgin_len nn",
                 $IRMlen, 80, 0, "*IRMREQ*", 0, 0, "", 32, 64,
                 $trancode, $IMSID, "", "$RACFID", "", "$RACFPW",
                 $tranlen, 0, $message_in, 4, 0;


socket(SOCK, AF_INET, SOCK_STREAM, $proto) or &ErrorScreen(0, "socket failed: $!");


if (!(connect(SOCK,$paddr))){
     print "OTMA connect failed<br>";
     return $message_out;
} else {
      send(SOCK,$IRM_message,0)  or  &ErrorScreen(0, "send IRM: $!");

    while (read(SOCK,$tmp_msg,2048) > 0 ) {
        $message_out .= $tmp_msg;
    }

     close(SOCK);