system("perl prn_to_file.pl $param1 > ../results/output.txt");

##</code><code>##

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