ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/chmod

Text File | 1992-10-18 | 168 b | 7 lines

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

chmod 0755, @executables;

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