#!/usr/bin/perl
use IO::Socket::INET;
use IO::All;
my $sr=$sock = IO::Socket::INET->new(Listen    => 5,
                                     LocalAddr => 'localhost:9999',
                                     ReuseAddr => 1 );
while(4)
  {
  my $cl = $sr->accept() or next;
  $re = <$cl>;
  chop($re);
  my @f = grep /$re/, <*>;
  my $n = shift @f; 
  my $d < io $n;
  print $cl "$n\n";
  print $cl $d;
  }