Select Code to Download

my $prog = 'myprog';
my $file = 'myfile';
...

print join(" ", "system():", "/path/to/$prog", '-foo', @useropts, $fil
+e, '-o', "$file.out"), "\n";  # debug
system("/path/to/$prog", '-foo', @useropts, $file, '-o', "$file.out");