...
#my $q = new CGI; # veraltete Schreibweise
my $q = CGI->new;

my $s=IO::Socket::INET->new(
        PeerAddr=>$irc_server,
        PeerPort=>$server_port,
        Timeout=>1)
or do {
  print STDERR "Error: Socket error!"; # Fehler Wird ins Serverlog geschrieben

  print $q->redirect('https://example.net/test/err.html'); # erzeugt redirect

  exit; # beendet das programm
};

#my $q = new CGI;
...