You can't pass anything to the callback subroutine. You have to do it out of band:

my @goods = ();
use File::Find;
find sub {
  push @goods, $File::Find::name if i_like_this($File::Find::name);
}, @dirs;
...
[download]