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', PeerPort => '6697', Proto => 'tcp') or die "Can't connect\n";
my %Servers = (server1 => $sock, server2 => $sock2);

foreach my $out (keys %Servers) {
	print $Servers{$out} "NICK mlapaglia\r\n";
	print $Servers{$out} "USER mlapaglia\r\n";
}