Select Code to Download

print "$_\n" for qw "perl /Users/james/perlstuff/macc/macc1 $file";

use Shell qw( perl );

...
perl "/Users/james/perlstuff/macc/macc1", $file;