open SYSTEM, "| perl prn_to_file.pl > ../results/output.txt");
   print SYSTEM $param1;
   close SYSTEM;