use strict;
use File::Find::Rule;

my ($target,$source) = @ARGV;

for (find(directory => name => $target, in => $source)) {
   print "$_\n";
}