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