231
#!/usr/bin/perl -w

use strict;
use Socket;

my ($remote, $port, $iaddr, $paddr, $proto);

$remote = shift || 'localhost';
$port = shift || 2345;
$port =~ /\D/ and $port = getservbyname($port, 'tcp');
$port or die "no port\n";
$iaddr = inet_aton($remote) or die "no host: $remote\n";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!\n";
connect(SOCK, $paddr) or die "connect: $!\n";
while (<SOCK>) {
    s/[\015\012]+$//;
    print "$_\n";
}
close(SOCK);
.

0