my $s=IO::Socket::INET->new(...) or die (print $q->redirect('https://example.net/test/err.html') and exit);