#!/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;