Select Code to Download

sub executeComm {
    my ($outfile, @comm) = @_;
...
print "before\n";
executeComm($outfile, $program, $ref_file);
print "after\n";

executeComm ("program '$ref_file' > '$outfile'");