Небольшой perl-скрипт, способный отправлять и принимать сообщения на определенный сокет.
#!/usr/bin/perl
use threads;
use IO::Socket;
$sock = new IO::Socket::INET(PeerAddr => localhost,
PeerPort => 555,
Proto => 'tcp') or die "Can't connect\n";
push @threads, threads->create(\&msoutput, out); #создать поток для отправки
push @threads, threads->create(\&msinput, inp); #создать поток для приема
foreach my $thread (@threads) {
$thread->join();
}
sub msoutput { #поток для отправки
while (1){
$sock->send("ping\n");
sleep 2;
}
}
sub msinput { #поток приема
while ($input=<$sock>) {
print $input;
}
}
