#!/usr/bin/perl

require 5.002;
use strict;
use Socket;

my( $host, $in_addr, $proto, $port, $addr );
my( $response, $page, $file, $pattern, $remoteHost, $remotePort );

$| = 1;

$in_addr = (gethostbyname( 'localhost' ))[4];
$port = 2809;

$addr = sockaddr_in( $port, $in_addr );

$proto = getprotobyname( 'tcp' );

socket( S, AF_INET, SOCK_STREAM, $proto )
	or die "socket:$!";

connect( S, $addr )
	or die "connect:$!";

select( S );
	$| = 1;
select( STDOUT );

$a = fork();
if( $a == -1 )
{
	die "fork:$!";
}
elsif( $a == 0 )
{
	while( <STDIN> )
	{
		print S;
	}
	exit;
}

while( <S> )
{
	print;
}

close( S );

exit;