14 lines
247 B
Perl
14 lines
247 B
Perl
|
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";
|
||
|
|
|
||
|
|
$line = <SERVER>;
|
||
|
|
|
||
|
|
print $line;
|
||
|
|
|
||
|
|
close(SERVER);
|