# connected to server
if (! $s) {
  print STDERR "Server does not reply!";
  print $q->redirect('https://example.net/test/err.html');
  exit;
}