all tasks

Task/Sockets/Perl/sockets-1.pl

@@ -0,0 +1,9 @@
+use Socket;
+
+$host = gethostbyname('localhost');
+$in = sockaddr_in(256, $host);
+$proto = getprotobyname('tcp');
+socket(Socket_Handle, AF_INET, SOCK_STREAM, $proto);
+connect(Socket_Handle, $in);
+send(Socket_Handle, 'hello socket world', 0, $in);
+close(Socket_Handle);

Task/Sockets/Perl/sockets-2.pl

@@ -0,0 +1,7 @@
+use Socket::Class;
+
+$sock = Socket::Class->new(
+  'remote_port' => 256,
+) || die Socket::Class->error;
+$sock->send('hello socket world');
+$sock->free;