in reply to how to find the file from the subdirectories of a directory?
use File::Basename; for (@files) { print dirname($_), "\n"; } [download]