2021-08-04T08:11:48 bianca

Ich meine du müsstest noch ein paar Fehlerabfragen einbauen.
Mache doch schon mal hinter das my $s=IO::Socket::INET->new(...) ein or die "Can't bind : $IO::Socket::errstr\n"

1
2
3
4

my $s=IO::Socket::INET->new(
        PeerAddr=>$irc_server,
        PeerPort=>$server_port,
        Timeout=>1) or die (print "Can't bind : $IO::Socket::errstr\r\n");