Select Code to Download

 
use strict;
use warnings;
...

my @files = &$find_this( "/tmp/dir1",  "file3.txt" );
print "@files\n";

$ ./file_next.pl
/tmp/dir1/dir3 file3.txt /tmp/dir1/dir3/file3.txt

For the three iterators,  the \%options are optional.
files( [ \%options,  ] @starting_points )])

 
sub findfile {
        my ($target, $starting_points ) = @_;
...
                        return $files[0], $files[1], $files[2]; #direc
+tory, filename, full path and name
        }
}