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

	our @Total = (); our $Totcnt = 500;
	our $remote_host = "172.16.47.22";
	our $remote_port = 3000;

	for ( 0..$Totcnt )
	{	my $parms = $$;
		my $result = Call_Multi_User( $parms );
		if ( ! $result ) { print "\t****Nothing Back\n"; }
		print "$result\n";
		usleep 20000;
	}

	my $open = $Total[0]; my $total = $Total[1]; 
	my $diff = ( $total / $open ) - 1 ;
	$open = $Total[0] / $Totcnt; my $total = $Total[1] / $Totcnt; 
	print "\n\tTotals:\t\t\t".sprintf("%0.8f",$open) . "\t".sprintf("%0.8f",$total)."\t+ ".sprintf("%0.3f",$diff)." %\n\n";

	exit;

	sub Call_Multi_User
	{	my $Todo = shift; if ( ! defined $Todo ) { return( "" ); }
		our $server;

		my $stime = gettimeofday; my $answer = "";
	#	if ( ! $server )	## if this worked then we wouldn't have the establish overhead!
		{
			socket( $server, PF_INET, SOCK_STREAM, getprotobyname('tcp'));	# create a socket

		    # build the address of the remote machine
			my $internet_addr = inet_aton($remote_host)
			        or die "Couldn't convert $remote_host into an Internet address: $!\n";
			my $paddr = sockaddr_in($remote_port, $internet_addr);

		    # connect
			connect($server, $paddr)
			        or die "Couldn't connect to $remote_host:$remote_port: $!\n";

		    select((select($server), $| = 1)[0]);  # enable command buffering

		}
		my $open = gettimeofday - $stime;
		print $server "$Todo\n";
		shutdown($server,1); #	my $no = 0;

		while (<$server>)
		{	$answer .= $_;
		}
		close $server;
		chomp($answer);
		my $total = gettimeofday - $stime;
		my $diff = ( $total / $open ) - 1 ;
		$Total[0] += $open; $Total[1] += $total; 
		$answer .= "\t".sprintf("%0.8f",$open) . "\t".sprintf("%0.8f",$total)."\t+ ".sprintf("%0.3f",$diff)." %";

		return ( $answer );
 }