#!/opt/ActivePerl-5.10/bin/perl -U
use Socket;
$port     = 5002;
$iaddr    = inet_aton('localhost');
$paddr    = sockaddr_in($port, $iaddr);
$proto    = getprotobyname('sctp');

socket( Server, AF_INET, SOCK_STREAM, $proto ) || die "Socket Failed: $!";
bind(Server, $paddr) || die "Socket Bind Failed: $!";
listen(Server, SOMAXCON) || die "Socket Listen Failed: $!";
print "SERVER started on SCTP port $port\n";
while (1)
{    recvmsg(Sock, $MSG, 1024, MSG_WAITALL) || die "Socket Recieve Failed: $!";
	print "Packet: ". $MSG ."\n";
}