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

Text File | 1992-10-18 | 101 b | 4 lines

#!/usr/bin/perl
@cannot = grep(!unlink($_), @ARGV);
die "$0: could not unlink @cannot\n" if @cannot;