Биллинговая система Nodeny

#!/bin/sh
# PROVIDE: nodeny
# REQUIRE: LOGIN mysql

. /etc/rc.subr

name="nodeny"
rcvar=`set_rcvar`

: ${nodeny_enable="YES"}
: ${nodeny_dir="/usr/local/nodeny"}

cd $nodeny_dir
echo "Starting $name"
sh go.sh ${name} &

#!/bin/sh

prg="nice -n -15 perl $1.pl"

while true
do
 ${prg}
 rez=$?
 case $rez in
         0 )  sleep 2 ;;
         * )  break ;;
 esac
done

exit $rez

kill -HUP id_процесса_nodeny.pl

if (-e $pidfile) {
    unless (open(PIDFILE, $pidfile)) {
        print ("Созданный ранее PID файл не читаемый!\n");
        exit(1);
        }
    my $oldpid=<PIDFILE>;
    close (PIDFILE);
    if ($oldpid > 1 && kill(0,$oldpid)) {
        print ("Скрипт уже запущен!\n");
        exit(1);
    }
}
open(PID, ">$pidfile") or die;
if (!print PID $$){
    warn "Не могу создать PID файл\n";
}
close(PID);