Verified ENC and W5100 ethernet modules.

libraries/UIPEthernet/tests/perl/udpserver.pl

@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+#udpserver.pl
+
+use IO::Socket::INET;
+
+# flush after every write
+$| = 1;
+
+my ($socket,$received_data);
+my ($peeraddress,$peerport);
+
+#  we call IO::Socket::INET->new() to create the UDP Socket and bound
+# to specific port number mentioned in LocalPort and there is no need to provide
+# LocalAddr explicitly as in TCPServer.
+$socket = new IO::Socket::INET (
+LocalPort => '5000',
+Proto => 'udp',
+) or die "ERROR in Socket Creation : $!\n";
+
+while(1)
+{
+# read operation on the socket
+$socket->recv($recieved_data,1024);
+
+#get the peerhost and peerport at which the recent data received.
+$peer_address = $socket->peerhost();
+$peer_port = $socket->peerport();
+print "($peer_address , $peer_port) said : $recieved_data\n";
+
+#send the data to the client at which the read/write operations done recently.
+$data = "data from server\n";
+
+$socket->send($data);
+
+print $socket "$data";
+
+}
+
+$socket->close();
+