You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
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); |