use strict;
	use warnings;

	use Time::HiRes qw( gettimeofday usleep );
	use Socket;

	my $server_port = 3000;
    # make the socket
    socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

    # so we can restart our server quickly
    setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, 1);

    # build up my socket address
    my $my_addr = sockaddr_in($server_port, INADDR_ANY);
    bind(Server, $my_addr)
        or die "Couldn't bind to port $server_port: $!\n";

   # establish a queue for incoming connections
	#	print  SOMAXCONN, "\n";
    listen(Server, SOMAXCONN)
        or die "Couldn't listen on port $server_port: $!\n";

	while ( 1 )
	{	my $WorkName = "FBServer"; my $cnt = 0; my $result = "";
		while ( 1 )
		{	$cnt++;
			my $client;
			$0 = "$WorkName: Waiting for work!";
		    accept( $client, Server );
			if ( defined $client )
			{
				my $tm = substr(scalar localtime(),4,15);
				$0 = "$WorkName: Working ( $cnt ) $tm";
				my $stime = gettimeofday; my $html = ""; my $Todo = ""; my $size = 0;
				$0 = "$WorkName: Read Socket ( $cnt ) $tm";
				eval
				{	while (<$client>)
					{	$Todo .= "$_"; chomp($Todo); }
				};
				if ( $@ )
				{	my $err = $@;
					print $client "$err\n";
					syslog('alert', "2 ERROR: $err");
					last;
				}
				if ( $Todo )
				{	chomp($Todo);	## Debian patch
					print "$Todo   ", sprintf("%0.8f",gettimeofday - $stime),"\n";
					print $client "Client $Todo: Thank you!\n";
					close ( $client );
					
				};
			}
		}
	}
	exit;