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