setpwent; while (@user=getpwent) { ($name,$passwd,$uid,$gid,$quota,$comment, $gcos,$dir,$shell) = @user; if (-e "$dir/.rnlast") { print "$name has used RN"; print " recently" if -M _ < 7; print "\n"; } } endpwent;