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