my $path = choosePath(); system("perl test.pl -i $path"."$file");