# ex_12-1

# Learning Perl on Win32 Systems, Exercise 12.1



print "Where to? ";

chomp($newdir = <STDIN>);

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

foreach (<*>) {

  print "$_\n";

}