diff --git a/bin/tests/system/ans.pl b/bin/tests/system/ans.pl
index 715f077b8d..2855371212 100644
--- a/bin/tests/system/ans.pl
+++ b/bin/tests/system/ans.pl
@@ -14,7 +14,7 @@
 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 # PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: ans.pl,v 1.2.6.3 2011/03/05 23:51:01 tbox Exp $
+# $Id: ans.pl,v 1.2.6.4 2011/03/18 04:40:08 each Exp $
 
 #
 # This is the name server from hell.  It provides canned
@@ -70,6 +70,12 @@ use Net::DNS;
 use Net::DNS::Packet;
 use strict;
 
+# Ignore SIGPIPE so we won't fail if peer closes a TCP socket early
+local $SIG{PIPE} = 'IGNORE';
+
+# Flush logged output after every line
+local $| = 1;
+
 # We default to listening on 10.53.0.2 for historical reasons
 # XXX: we should also be able to specify IPv6
 my $server_addr = "10.53.0.2";