2020-09-09 18:32:57 +02:00
|
|
|
#!/usr/bin/env perl
|
2020-09-01 14:03:18 +02:00
|
|
|
|
2020-09-09 18:32:57 +02:00
|
|
|
use IO::Socket;
|
|
|
|
|
|
|
|
|
|
$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
|
|
|
|
|
PeerPort => 1234,
|
|
|
|
|
Proto => "tcp",
|
|
|
|
|
Type => SOCK_STREAM);
|
|
|
|
|
|
|
|
|
|
my $reply;
|
|
|
|
|
$socket->read($reply, 1000);
|
