#!/usr/bin/env perl
use strict;
use warnings;

use File::Find;
use Path::Tiny;

# Construct the tree
my $dir = path('quux');
my $file = $dir->child('baz')->touchpath;
link $file, $dir->child($_) for qw/foo bar/;

# Run the iterator
find ({wanted => sub { print "found $_\n" }, follow => 1}, $dir);

# Clean up
$dir->remove_tree;