[PERL + IRC] IRC Bot Connected nicht richtig (Probleme mitm IDENT?)

#!/usr/bin/perl

use IO::Socket;

use Switch;

use Digest::MD5 qw(md5_hex);



$server = 'irc.chaoz-irc.org';

$port = '6667';

$user = 'wangbot wangbot wangbot wangbot';

$nick = 'wangbot';



$channel = '#wang';

$channelpasswd = 'china';



$owner = 'Wang';

$passwd = '';







$conn = IO::Socket::INET->new(PeerAddr=>$server, PeerPort=>$port, Proto=>'tcp', Timeout=>'30' || print 'ERROR: Couldn\'t establish a connection to '.$server.".\n";



print $conn 'USER '.$user.'\r\n';

print $conn 'NICK '.$nick.'\r\n';

print $conn 'JOIN '.$channel.' '.$channelpasswd.'\r\n';



while ($datain = <$conn> {



   ## show data in the cmd

   print $datain;



   # log Data

   if ($datain =~ m/\privmsg $channel/) {

     open(CHANLOG,'>>'.$channel.'.log';

     print CHANLOG "$datain";

     close (CHANLOG);

   } else {

     open(CHANLOG,'>>'.$server.'.log';

     print CHANLOG "$datain";

     close (CHANLOG);

   }



   # ping.... pong!

   if ($datain =~ m/^PING (.*?)$/gi) {

       print $conn 'PONG '.$1.'\n';

   }

}

C:\Documents and Settings\Test\Desktop>perl ircbot1.pl

:Ascofun.Chaoz-IRC.org NOTICE AUTH :*** Looking up your hostname...

:Ascofun.Chaoz-IRC.org NOTICE AUTH :*** Found your hostname (cached)

:Ascofun.Chaoz-IRC.org NOTICE AUTH :*** Checking ident...

:Ascofun.Chaoz-IRC.org NOTICE AUTH :*** No ident response; username prefixed wit

h ~

ERROR :Closing Link: [85.181.77.137] (Ping timeout)