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);

##</code><code>##

my $randomVar = "Hello World\n";
print $randomVar;

##</code><code>##

my $res = $ua->get('http://SOMEURLHERE');
print $res->decoded_content;