#!/bin/sh
/mit/bert/PERL/access.pl $*; status=$?;

if [ ${status} -eq 0 ]; then
  echo "access is off for '$*'";
elif [ ${status} -eq 1 ]; then
  echo "*** ACCESS IS ON FOR '$*'";
else
  echo "ERROR OCCURRED: try again.";
fi