#!/usr/bin/perl -w
# server0.pl

use strict;
use Socket;
my $port = shift || 7890;

my $proto = getprotobyname('tcp');

socket( SERVER, PF_INET, SOCK_STREAM, $proto ) or die "socket: $!";
setsockopt( SERVER, SOL_SOCKET, SO_REUSEADDR, 1 ) or die "setsock: $!";

my $paddr = sockaddr_in( $port, INADDR_ANY );

bind( SERVER, $paddr ) or die "bind: $!";
listen( SERVER, SOMAXCONN ) or die "listen: $!";
print "SERVER Inicializado na porta $port\n";

my $client_addr;
my $connection="0";
my $line;
while ( $client_addr = accept( CLIENT, SERVER ) )
{
    my ( $client_port, $client_ip ) = sockaddr_in($client_addr);
    my $client_ipnum = inet_ntoa($client_ip);
    my $client_host  = gethostbyaddr( $client_ip, AF_INET );

print "Nova coneccao establecida:\n";
print "Conecção do Cliente $client_host", " [$client_ipnum]\n";

  my $old_fh = select(CLIENT);
	$| = 1;
	select($old_fh);
        print CLIENT "OK\n";
	while ($connection eq "0")
        {
        $line = <CLIENT>;
        print $line;
        print CLIENT $line;
        }
}