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
};