#!/uva/bin/perl5  -Tw

$ENV{PATH} = "/bin/:/usr/bin/:/usr/local/bin/";
$ENV{ENV} = "";



#######################################################################
#                       Print http Header.                            #
#######################################################################

# First tell Perl to bypass the buffer.  Then, print out the HTTP
# header. We'll output this quickly so that we
# will be able to do some of our debugging from the web and so that in
# the case of a bogged down server, we won't get timed-out. 


  $! = 1;
  print "Content-type: text/plain\n\n";
  if ( -e '/usr/local/cluster' ) { print `cluster who` ; }
  else {print `who`;}