# snip until the chdir print "Total count = ", scalar(@files), "\n\n"; print "$_\n" for @files;