Help for this page
system("perl prn_to_file.pl $param1 > ../results/output.txt");
open SYSTEM, "| perl prn_to_file.pl > ../results/output.txt"); print SYSTEM $param1; close SYSTEM;