use Shell qw( perl );

. . .

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