Mega Code Archive

 

Categories / Perl / Network

 

Sockaddr_un($file)

use Socket; $file = 'transfer'; socket(SOCKET, PF_UNIX, SOCK_STREAM, 0) or die "Could not create socket.\n"; connect(SOCKET, sockaddr_un($file))  or die "Could not connect.\n";      print SOCKET "Hello from the client!\n"; close SOCKET; exit;