server2.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:55 2010 from server2.pl 2005/05/09 551.

# /perl
# Server Program
use IO::Socket::INET;
print ">> Server Program <<\n";
# Create a new socket
$MySocket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp');
# Keep receiving messages from client
$def_msg="\nReceiving message from client.....\n";
while(1)
{
    $MySocket->recv($text,128);
    if($text ne '')
    {
        print "\nReceived message '", $text,"'\n";
    }
    # If client message is empty exit
    else
    {
        print "Client sent blank line ... closing server ...";
        exit 1;
    }
}

index -|- top