sub run { # creates data my $conf = `(cat ./BasicTest.opt; ls ./data/*_seq.xml)`; my $num = shift; # changes a setting $conf = s/99/$num/; # runs program return `"$conf | ./perl/tester.pl"`; }