Index: trunk/BNC/test_bnc_eph.pl
===================================================================
--- trunk/BNC/test_bnc_eph.pl	(revision 2836)
+++ 	(revision )
@@ -1,33 +1,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use IO::Socket;
-
-# List of Parameters
-# ------------------
-my($port) = @ARGV;
-
-if (!defined($port)) {
-  die "Usage: test_bnc_eph.pl portNumber\n";
-}
-
-# Local Variables
-# ---------------
-my($serverHostName) = "localhost";
-my $server;
-
-my $retries = 10;
-while ($retries--) {
-  $server = IO::Socket::INET->new( Proto    => "tcp",
-                                   PeerAddr => $serverHostName,
-                                   PeerPort => $port);
-  last if ($server);
-}
-die "Cannot connect to $serverHostName on $port: $!" unless ($server);
-
-my $buffer;
-while (defined ($buffer = <$server>)) {
-  print $buffer;
-}
-
-
Index: trunk/BNC/test_tcpip_client.pl
===================================================================
--- trunk/BNC/test_tcpip_client.pl	(revision 2837)
+++ trunk/BNC/test_tcpip_client.pl	(revision 2837)
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+
+use strict;
+use IO::Socket;
+
+# List of Parameters
+# ------------------
+my($port) = @ARGV;
+
+if (!defined($port)) {
+  die "Usage: test_bnc_eph.pl portNumber\n";
+}
+
+# Local Variables
+# ---------------
+my($serverHostName) = "localhost";
+my $server;
+
+my $retries = 10;
+while ($retries--) {
+  $server = IO::Socket::INET->new( Proto    => "tcp",
+                                   PeerAddr => $serverHostName,
+                                   PeerPort => $port);
+  last if ($server);
+}
+die "Cannot connect to $serverHostName on $port: $!" unless ($server);
+
+my $buffer;
+while (defined ($buffer = <$server>)) {
+  print $buffer;
+}
+
+