#!/usr/bin/perl 
use warnings;
use strict;

use Socket;

my $proto = getprotobyname('udp');
my $host  = inet_aton('localhost');
my $port  = 4444;

socket CLIENT, PF_INET, SOCK_DGRAM, $proto or die "Unable to create socket: $!";

my $servaddr = sockaddr_in($port, $host);

send CLIENT, "Hello from client", 0, $servaddr or die "Send: $!\n";
my $message;
recv CLIENT, $message, 1024, 0;
print "Response was: $message\n";