$cnt = chmod 0755, 'foo', 'bar';

chmod 0755, @executables;

@cannot = grep(!(chmod 0755, $_), 'tom', 'dick', 'harry');
die "$0: could not chmod @cannot\n" if @cannot;
