int pid = fork();
if (pid == 0) {
    execl("/the/perl/program", "program", "arg1", "etc");
    _exit("URK!");
}
close(7);