Yes. This will send/receive messages continuously, to each of two echo servers concurrently:

#! perl -slw
use strict;
use threads;
use IO::Socket;

my $t1 = async {
    my $s = IO::Socket::INET->new( 'localhost:12345' );
    for ( 1 .. 1e6 ) {
        printf $s "Message %6d\n", $_;
        printf 'Sent and received: %s', scalar <$s>;
        sleep 1;
    }
};

my $t2 = async {
    my $s = IO::Socket::INET->new( 'localhost:54321' );
    for ( 1 .. 1e6 ) {
        printf $s "Message %6d\n", $_;
        printf 'Sent and received: %s', scalar <$s>;
        sleep 1;
    }
};

$_->join for $t1, $t2;
[download]

Yes, and there are several ways to do it. Have a look on POE, AnyEvent, IO::Select, Coro. Also, threads may be the solution.

Also Reflex now, which is yet another Moose/POE amalgam.

--
Rocco Caputo - http://poe.perl.org/ - irc://irc.perl.org/poe