Current File : //root/HR_perl.sh

var=`egrep -i "^noperl" /etc/group`
if [ -z "$var" ]
then
cd /root/
groupadd noperl
chgrp noperl /usr/bin/perl
chmod 706 /usr/bin/perl
service=`whereis usermod | awk '{print $2}'`
`$service -a -G noperl root 2>&1`
RET=$?
exit $RET
fi