Network Perl

  1. Home
  2. Perl
  3. Network
  4. 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;