15 lines
261 B
Perl
15 lines
261 B
Perl
|
use IO::Socket;
|
||
|
|
|
||
|
|
$socket = IO::Socket::INET->new
|
||
|
|
(
|
||
|
|
PeerAddr => 'yourserver.com',
|
||
|
|
PeerPort => 1116,
|
||
|
|
Proto => "tcp",
|
||
|
|
Type => SOCK_STREAM
|
||
|
|
) or die "Could not open port.\n";
|
||
|
|
|
||
|
|
$answer = <$socket>;
|
||
|
|
|
||
|
|
print $answer;
|
||
|
|
|
||
|
|
close($socket);
|