#!/pkg/gnu/bin/perl
#
# Usage: server <switches>
# -u : use IOR 
# -f m : output results in Mbps
# -b <sock Q size> ** not implemented **
# -ORBhost <host name>  ************* must provide this for this version
# -OAthread : use threaded version as opposed to reactive
#

$HOSTNAME = shift (@ARGV);
 
system ("server -d 1 -f m -o ior -ORBhost $HOSTNAME -ORBdotteddecimaladdresses 1 -ORBobjrefstyle url");