#ex_10-3
#Learning Perl, Appendix A, Exercise 10.3
while (<>) {
  chop; # eliminate the newline
  print "$_ is readable\n" if -r;
  print "$_ is writable\n" if -w _;
  print "$_ is executable\n" if -x _;
  print "$_ does not exist\n" unless -e _;
}