my $sock = new IO::Socket::SSL(PeerAddr => 'myircserver', PeerPort => '6697', Proto => 'tcp') or die "Can't connect\n";

print $sock "NICK mlapaglia\r\n";
print $sock "USER mlapaglia\r\n";

while(my $input = <$sock>) {
	if($input =~ /004/) {
		last;
	}
	elsif($input =~ /433/) {
		die "nickname already in use\n";
	}
}

print $sock "JOIN #testing123\r\n";

while(my $input = <$sock>) {
	chop $input;
	if($input =~ /^PING(.*)$/i) {
		print $sock "PONG $1\r\n";
	}
	elsif($input =~ /^:(.*)!(.*)\@(.*?) PRIVMSG (.*)/i) {
		event_privmsg("myserver", $4, $1, $3);
	}
}