#!/usr/bin/perl

######################################################################
#                                                                    #
# (c) Anthony G. Basile, June 3, 2002                                #
#                                                                    #
# Server proxy.                                                      #
#                                                                    #
######################################################################

print "The following proxy services are running:\n" ;

$run = `ps -elf | grep start-service | grep -v grep | sed -e 's/^.*perl//'` ;

print $run ;