#include <stdio.h>
#include <unistd.h>

int main(int argc, char ** argv)
{
        /* Reset uid/gid */
        setregid(getegid(), getegid());
        setreuid(geteuid(), geteuid());
        char *const pars [] = {"/usr/bin/perl", "clean_domains_at_evalserv.pl", argv[1], NULL}; 

        /* Attempt to execute script */
        execv("/usr/bin/perl", pars);

        /* Reach here if execv failed */
        perror("execv");
        return 1;
}