use strict;
use Data::Dumper;


use IO::Socket;
use Apache2::RequestRec ();
use Apache2::Const -compile => ( 'OK', 'NOT_FOUND' );
use Apache2::compat;

sub handler
{
    $| = 1;
    my( $r ) = @_;
    #$r->content_type("text/html");

        my $socket = IO::Socket::INET->new (
                                                Peeraddr => "localhost",
                                                BindPort => 1011,
                                                Proto    => "tcp",
                                                type     => SOCK_STREAM,
                                                Listen  => 256 ) or die "Couldn't connect : $@\n";

# wait for a connection
my $new_sock = $socket->accept();

while (<$new_sock>) {
	print $_;
}		

$socket->close;