Select Code to Download

$filename = "output.txt";
system("perl /absolute/path/to/program1> $filename");

...
print "Start xxx job...";
# some code to do the job
print "End of doing xxx job.";

(program1.pl)
$projectSourceDir ='/absolute/path';
...
        
print "$cvsInfo";
print "done\n\n";