#!/bin/env perl
# Server Program
use IO::Socket::INET;
print ">> ITSNO daemon status <<\n";

# Create a new socket
$MySocket=new IO::Socket::INET->new(LocalPort=>17521,Proto=>'udp')
	or die "Socket in use";

# Keep receiving messages from client
$def_msg="\nReceiving message from client.....\n";
while(1)
{
	$MySocket->recv($text,576);
	print $text;
}