/usr/bin/perl perlscript.pl
ret=$?
echo "Status String is $?"
if [ $ret -eq 0 ]
then
  echo "case A"
else
  echo "case B"
fi