I believe you derived your code from http://www.thegeekstuff.com/2010/07/perl-tcp-udp-socket-programming/.

I modified/simplified the code, and this set works fine for me:
SERVER:

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

$| = 1; # flush after every write

my $socket = new IO::Socket::INET (
                        LocalPort => '5000',
                        Proto => 'udp',
                    ) or die "ERROR in Socket Creation : $!\n";

while(1){
    $socket->recv(my $recieved_data,1024);
    my $peer_address = $socket->peerhost();
    my $peer_port = $socket->peerport();
    print "\n($peer_address , $peer_port) said : $recieved_data";
    #send the data to the client at which the read/write operations do
+ne recently.
    $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
[download]

CLIENT:

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

$| = 1; # flush after every write

my $socket = new IO::Socket::INET (
    PeerAddr   => '127.0.0.1:5000',
    Proto        => 'udp'
  ) or die "ERROR in Socket Creation : $!\n";

$socket->send("data from client");

$socket->recv(my $data,1024);
print "Data received from socket : $data\n";
$socket->close();
[download]

The BROADCAST is a way to send data to all listeners on the subnet. To do that, you use a special broadcast IP addressto SEND data.

I'm not sure I understood your question in this regard.