char command[] = "/home/user/scripts/PerlScript.pl";
.
.
fp = popen(command, "r");
buffer = (char *)malloc(sizeof(char) * bufSize);
while( fgets(buffer, bufSize, fp) != NULL)
   fputs(buffer, stdout);
pclose(fp);
free(buffer);