perl("mycode.pl filename > ~/MyPerl/result_ans/filename.out");