lustre/tests/socketclient

   1 #!/usr/bin/perl -w
   2 use Socket;
   3 use strict;
   4 my ($rendezvous, $line);
   5
   6 $rendezvous = shift || <@ARGV>;
   7 socket(SOCK, AF_UNIX, SOCK_STREAM, 0)   || die "socket: $!";
   8 connect(SOCK, sockaddr_un($rendezvous)) || die "connect: $!";
   9 while (defined($line = <SOCK>)) {
  10         print $line;
  11 }
  12 exit;