This will only run on Redhat based Linux such as CentOS.

# vi /etc/init.d/perlscript

#!/bin/bash 
#
# perlscript    script.pl
#
#
# chkconfig:    2345 98 02
# description:  perl script daemon
# processname:  script.pl
# pidfile:      /var/run/script.pl.pid

daemon="script.pl"

# Launch this daemon inside screen session.
PERLSCRIPT="sudo -u chr1x2 /usr/bin/screen -dmS PerlDaemon /home/perl/$daemon"

# Where is it?
cd /home/perl/

# Source function library.
. /etc/rc.d/init.d/functions

# Source networking configuration.
. /etc/sysconfig/network

[ -f /home/perl/$daemon ] || exit 0

RETVAL=0

# See how we were called.
case "$1" in
start)
        echo -n "Starting $daemon: "
        daemon $NICELEVEL $PERLSCRIPT
        RETVAL=$?
        echo
        [ $RETVAL = 0 ] && touch /var/lock/subsys/$daemon
        ;;
stop)
        echo -n "Stopping $daemon: "
        killproc $daemon
        RETVAL=$?
        echo
        [ $RETVAL = 0 ] && rm -f /var/lock/subsys/$daemon
        ;;
restart)
        $0 stop
        $0 start
        RETVAL=$?
        ;;
status)
        status $daemon
        RETVAL=$?
        ;;
*)
        echo "Usage: $0 {start|stop|restart|status}"
        exit 1
esac

exit $RETVAL

# chkconfig --add script.pl