#    my $sock = IO::Socket::INET->new(PeerAddr => $self->server,
#                    PeerPort => $self->port,
#                    Proto    => "tcp",
#                   );

    $sock = Symbol::gensym();
    unless (socket( $sock, PF_INET, SOCK_STREAM, getprotobyname('tcp')
+ )) {
        carp ("Can't create a new socket: $!");
    $self->error(1);
    return;
    }
[download]

Unfortunately Uncommenting the upper part and commenting out the lower does not help me here....

But I made the switch to POE::Component::IRC

Imagination is more important then knowledge -Einstein-