Mega Code Archive

 

Categories / Perl / Network

 

Send data from client to server

use Socket; socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp')); $addr = sockaddr_in(2336, inet_aton('server.com')); connect(SERVER, $addr) or die "Could not connect.\n"; print SERVER "Hello from the client!\n"; close(SERVER);