#!/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();