1 files changed, 0 insertions, 34 deletions
diff --git a/contrib/perl5/eg/client b/contrib/perl5/eg/client
deleted file mode 100755
index 5900c90..0000000
--- a/contrib/perl5/eg/client
+++ /dev/null
@@ -1,34 +0,0 @@
-#!./perl
-
-$pat = 'S n C4 x8';
-$inet = 2;
-$echo = 7;
-$smtp = 25;
-$nntp = 119;
-$test = 2345;
-
-$SIG{'INT'} = 'dokill';
-
-$this = pack($pat,$inet,0,   128,149,13,43);
-$that = pack($pat,$inet,$test,127,0,0,1);
-
-if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
-if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
-if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }
-
-select(S); $| = 1; select(stdout);
-
-if ($child = fork) {
-    while (<STDIN>) {
-	print S;
-    }
-    sleep 3;
-    do dokill();
-}
-else {
-    while (<S>) {
-	print;
-    }
-}
-
-sub dokill { kill 9,$child if $child; }