Examples 44-45

#Learning Perl Appendix A, Exercise 11.3

# append to program from the first problem...

format STDOUT_TOP =

Page @<<<

Username User ID Real Name

======== ======= =========

#Learning Perl Appendix A, Exercise 12.1

print "Where to? ";

chomp($newdir = <STDIN>);

chdir($newdir) || die "Cannot chdir to $newdir: $!";

foreach (<*>) {

print "$_\n";

}