--- hostinfo.old	2010-04-07 18:31:56.265513207 -0400
+++ hostinfo	2009-09-02 22:36:16.944951749 -0400
@@ -1,4 +1,4 @@
-#!/usr/um/bin/perl 
+#!/usr/bin/env perl
 ################################################################################
 #
 # HOSTINFO
@@ -35,7 +35,7 @@
 ## to incidental, indirect, consequential, or special damages.
 ################################################################################
 
-push(@INC, "/usr/caen/netuse/lib");
+push(@INC, "/path/to/directory/containing/netuseclient");
 require "netuse_client.pl";
 
 
@@ -118,8 +118,8 @@ if (defined($retvals[0])) {
     print "\nThe current time is:  ", `date`, "\n";
 
     if (!$LOC && !$MODELS) {
-	print "Host name            Type    Load Averages     Ses Disp Last Report   /tmp\n";
-	print "-------------------- ---- -------------------- --- ---- ------------- --------\n";
+	#print "Host name            Type    Load Averages     Ses Disp Last Report   /tmp\n";
+	#print "-------------------- ---- -------------------- --- ---- ------------- --------\n";
 	
 	# Loop through results of query
 	foreach $_ (@retvals) {
@@ -139,7 +139,7 @@ if (defined($retvals[0])) {
 	    }
 	    else {
 		printf("%-20s %-4s  %5.2f  %5.2f  %5.2f %3d %-4s %s %8d\n", 
-		       substr($field[0], 0, 20),       # Hostname
+		       $field[0],
 		       @field[1,6..8,5],               # Type, load averages, session count
 		       $field[9] ? 'YES' : 'NO',       # Display
 		       $reptime,                       # Report time