#ex_13-5
#Learning Perl, Appendix A, Exercise 13.5
shift;
shift(@ARGV);
foreach $f (<*>) {
  print "$f -> $where\n" if $where = readlink($f);
}