case "$1" in
  -d) shift
      exec PERL5.SED ${SIRCLIB}/dsirc "$@"
      ;;
  *)    eval  exec  /usr/local/bin/ssfe  $SSFE  PERL5.SED  ${SIR-
CLIB}/dsirc esac