Потоки в Perl

Небольшой 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;
  }
}