use IO::Socket::INET;

$server = "irc.seilen.de"; 
        $port = "6667"; 
        $channel = "#bot";
        $nick = "tK-Bot"; 
        


my $sock = new IO::Socket::INET(
                                PeerAddr => $server,
                                PeerPort => $port,
                                Proto => 'tcp',
                               ) || die "No connection $!\n";

print $sock "NICK $nickf\r\n";
print $sock "USER lol\r\n";

while ($input = <$sock>)
{
        if ($input =~ /004/)
        {
                                        last;
        }
        elsif ($input =~ /433/)
        {
                       
                    print $sock "NICK Anderer-Nick\r\n";     
        }
 
}
print $sock "JOIN $channel\r\n";
print $sock "PRIVMSG $channel :\001ACTION HELLO WORLD \001\r\n";