*** aub~	Sun Sep 13 05:38:12 1992
--- aub	Sun Sep 13 06:11:59 1992
***************
*** 1,4 ****
! #!/usr/local/bin/perl
  #
  #
  #
--- 1,4 ----
! #!/afs/athena/contrib/perl/p
  #
  #
  #
***************
*** 35,41 ****
  #				    in the standard place.
  
  $ECHO = "/bin/echo"; &find_pg("echo", 0) unless (-x $ECHO);
! $SUM = "/bin/sum";   &find_pg("sum", 0)  unless (-x $SUM);
  $CAT = "/bin/cat";   &find_pg("cat", 0)  unless (-x $CAT);
  $MV = "/bin/mv";     &find_pg("mv", 0)   unless (-x $MV);
  
--- 35,41 ----
  #				    in the standard place.
  
  $ECHO = "/bin/echo"; &find_pg("echo", 0) unless (-x $ECHO);
! $SUM = "/usr/bin/sum";   &find_pg("sum", 0)  unless (-x $SUM);
  $CAT = "/bin/cat";   &find_pg("cat", 0)  unless (-x $CAT);
  $MV = "/bin/mv";     &find_pg("mv", 0)   unless (-x $MV);