test.pl

use strict;
use warnings;
use IO::Socket::INET;

my $socket1= IO::Socket::INET->new(PeerPort => 12345, PeerAddr => '127.0.0.1') or die 'no connect';
print $socket1 "authenticate\r\n";
print $socket1->getline();

my $socket2= IO::Socket::INET->new(PeerPort => 12346, PeerAddr => '127.0.0.1') or die 'no connect';
print $socket2 "authenticate\r\n";
print $socket2->getline();

print $socket1 "setevents introduce\r\n";
print $socket1->getline();

while (my $line= $socket1->getline()) {
    print $line;
    chomp $line;

    if ($line =~ /\A650 INTRODUCE (\S+) (\S+)\s*\z/) {
        print $socket2 "perform-rendezvous $1 $2\r\n";
        print $socket2->getline();
    }
}