# connected to server
#($s)?(print ""):(print $q->redirect('https://example.net/test/err.html') and exit);
die (print $q->redirect('https://example.net/test/err.html') and exit) unless $s;