Just in case you are in a hurry....here is a working server/client.

#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket::INET;

print "\n>>Server Program <<\n";
#--
#-- server.pl
#--

# Create a new socket
my $MySocket=new IO::Socket::INET->new(LocalPort=>1234,
                                        Proto=>'udp');

# Keep receiving messages from client
my $def_msg="\nReceiving message from client.....\n";
my $text = "";

while(1)
{
   $MySocket->recv($text,128);
   if($text ne '')
   {
      print "\nReceived message '", $text,"'\n";
   }
   # If client message is empty exit
   else
   {
      print "Client has exited!";
      exit 1;
   }
}
[download]

#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket::INET;

print "\n>>Client Program <<\n";
#--
#-- client.pl
#--
# Create a new socket
my $MySocket=new IO::Socket::INET->new(PeerPort=>1234,
                                         Proto=>'udp',
                     PeerAddr=>'localhost'
                     );

# Send messages
my $def_msg="Enter message to send to server : ";
my $msg = "";

print "\n",$def_msg;
while($msg=<STDIN>)
{
   chomp $msg;
   if($msg ne '')
   {
      print "\nSending message '",$msg,"'";
      if($MySocket->send($msg))
      {
         print ".....<done>","\n";
         print $def_msg;
      }
   }
   else
   {
      # Send an empty message to server and exit
      $MySocket->send('');
      exit 1;
   }
}
[download]