--- projects/cms/source/host/ihost-perl/ihost.pl	2001/02/28 10:52:16	1.19
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/02/28 10:53:13	1.20
@@ -10,7 +10,7 @@
 #  - pjm2@ukc.ac.uk
 #
 # $Author: tdb $
-# $Id: ihost.pl,v 1.19 2001/02/28 10:52:16 tdb Exp $
+# $Id: ihost.pl,v 1.20 2001/02/28 10:53:13 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -265,8 +265,6 @@ EOF
     # Make the packet smaller by stripping out newlines and leading spaces.
     $xml =~ s/\n\s*//g;
 
-print $xml;
-    
     my($sock) = new IO::Socket::INET (
                                       PeerPort => $udp_port,
                                       PeerAddr => $filter_addr,