Unfortunatley Suid scripts don't work so well with perl, even when you use suidperl. It does set the euid and egid right, but not the uid and gid. So its really running as root but when it executes other programs like useradd for example they wont run as root when executed which is a major neusense.
So a good solution is to write a small wrapper in C and have it execute the script.

Something like this:

#include <unistd.h>

int main(int argc, char** argv) {
        if (getuid() == 110) {
                setuid(geteuid());
                setgid(getegid());
                execl("/path/to/script.pl", NULL);
        }
        return 0;
}
[download]