a l'aide perl

Bonjour,

Au secour.
povez-vous m'aider à transformer les deux exemple de scripts ksh en perl
merci par avance

Exemple 1 :
#!/usr/bin/ksh
prd_script=`/usr/bin/basename $0`
# fonction usage
_usage_()
{
echo « $prd_script $PARM »
}
# verification nombre parametre
if test $# -ne 1
then
_usage_
cr=1
return $cr
exit $cr
fi
# verification si le nom du parametre est declare dans /etc/appli.parm
OPTION=$1
PARM=`cat /ets/appli.parm | grep -v '#' | grep $OPTION | tr -s «» |
cut -d':' -f2`
if test -z "$PARM"
then
echo "$OPTION n est pas declare dans /etc/appli.parm"
cr=1
return $cr
exti $cr
fi
# verification si appli est demarre et est accessible
/usr/local/bin/verif_$PARM.ksh $PARM
cr=$?
if test $cr -eq 1
then
echo "l appli appli_$PARM n est pas demarre"
return $cr
exit $cr
else
if test "$cr" -eq 2
then
echo "l appli appli_$PARM n est pas accessible »
return $cr
exit $cr
fi
fi
# traitement
/usr/local/bin/appli_$PARM.ksh $PARM

Exemple 2 :
# fonction usage
_usage_()
{
echo « /usr/local/bin/appli_$PARM.ksh $PARM »
}
# verification nombre parametre
if test $# -ne 1
then
_usage_
cr=1
return $cr
exit $cr
fi
# declaration options
while getopts b:t:p:s: _options_ $*
do
case $_options_ in
d) _dflag_='1' _dval_ = "$OPTARG";;
t) _tflag_='1' _tval_ = "$OPTARG";;
p) _pflag_='1' _pval_ = "$OPTARG";;
s) _sflag_='1' _sval_ = "$OPTARG";;
*) cr='1'
return $cr
_usage_
exit $cr
esac
done

qpj