13 lines
259 B
Perl
13 lines
259 B
Perl
|
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;
|