#!/usr/athena/bin/perl
use IO::Socket;
$filename=pop;
print	"Connecting to $filename..\n";
$socket = IO::Socket::UNIX->new(Type=>SOCK_STREAM, Peer=>$filename) or die;
$socket->autoflush(1);
while(<>) {
  print $socket $_;
}
while(<$socket>) {
  print;
}