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

##</code><code>##

use Shell qw( perl );

. . .

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