Help for this page

Select Code to Download

Select or download this

my $sock = new IO::Socket::SSL(PeerAddr => 'irc.server2.org', PeerPort
+ => '6697', Proto => 'tcp') or die "Can't connect\n";
my $sock2 = new IO::Socket::SSL(PeerAddr => 'irc.server1.org', PeerPor
+t => '6697', Proto => 'tcp') or die "Can't connect\n";
my %Servers = (server1 => $sock, server2 => $sock2);
...
    print $Servers{$out} "NICK mlapaglia\r\n";
    print $Servers{$out} "USER mlapaglia\r\n";
}