#ex_12-1 #Learning Perl, Appendix A, Exercise 12.1 print "Where to? "; chop($newdir = ); chdir($newdir) || die "Cannot chdir to $newdir"; foreach (<*>) { print "$_\n"; }