#!/usr/bin/perl
#client.pl

use strict;
use warnings;
use Socket qw(:DEFAULT :crlf);

my $host = shift || 'localhost';
my $port = shift || 8080;

 my $proto = getprotobyname('tcp');


my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
or die "socket: $!";
 connect(SOCKET, $paddr) or die "connect: $!";

my $line;
if  ($line)
{
print $line;
}
close SOCKET or die "close: $!";