my $s=IO::Socket::INET->new(...) 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 };