18 lines
435 B
Perl
18 lines
435 B
Perl
|
#!/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";
|