Select Code to Download

#!/usr/bin/perl
#udpserver.pl
...
    $socket->send ("Server received '$recieved_data'. This is the SERV
+ER response\n");
}
$socket->close(); # We will never get here , but good practice to clos
+e

#!/usr/bin/perl
#udpclient.pl
...
$socket->recv(my $data,1024);
print "Data received from socket : $data\n";
$socket->close();