Select Code to Download

# perl serv.pl 
assoc id  = 141
state     = 4
...
instrms   = 0
outstrms  = 0
Sending to -1

447 2022-10-31 09:25:16.785618624 192.168.10.40 -> 192.168.10.44 SCTP 
+84 INIT 
448 2022-10-31 09:25:16.785667135 192.168.10.44 -> 192.168.10.40 SCTP 
+300 INIT_ACK 
...
466 2022-10-31 09:25:16.787933923 192.168.10.44 -> 192.168.10.40 SCTP 
+64 SACK 
484 2022-10-31 09:25:18.787082949 192.168.10.40 -> 192.168.10.44 M3UA 
+(RFC 3332) 72 ASPUP 
487 2022-10-31 09:25:18.986384020 192.168.10.44 -> 192.168.10.40 SCTP 
+64 SACK

use Net::SIGTRAN::SCTP;
use Net::SIGTRAN::M3UA;
...
   $server->BEAT_ACK($connSock,$heartbeat);
   $server->close($connSock);
}