#ex_18-1
#Learning Perl Appendix A, Exercise 18.1
for (;;) {
($user,$home) = (getpwent)[0,7];
last unless $user;
next unless open(N,"$home/.newsrc");
next unless -M N < 30; ## added value :-)
while (
This HTML Help has been published using the chm2web software.