home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / client < prev    next >
Text File  |  1997-09-25  |  681b  |  23 lines
  1.     #!/usr/bin/perl -w
  2.     require 5.002;
  3.     use strict;
  4.     use Socket;
  5.     my ($remote,$port, $iaddr, $paddr, $proto, $line);
  6.  
  7.     $remote  = shift || 'localhost';
  8.     $port    = shift || 2345;  # random port
  9.     if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
  10.     die "No port" unless $port;
  11.     $iaddr   = inet_aton($remote)         || die "no host: $remote";
  12.     $paddr   = sockaddr_in($port, $iaddr);
  13.  
  14.     $proto   = getprotobyname('tcp');
  15.     socket(SOCK, PF_INET, SOCK_STREAM, $proto)    || die "socket: $!";
  16.     connect(SOCK, $paddr)    || die "connect: $!";
  17.     while (defined($line = <SOCK>)) {
  18.     print $line;
  19.     }
  20.  
  21.     close (SOCK)        || die "close: $!";
  22.     exit;
  23.