{
    my @uris;
    my $finder_code = sub { push @uris, shift };
    sub finder_sub { push @uris, shift }

    for ... {
        ...
        @uris = ();
        my $code_finder = URI::Find::->new($finder_code);
        my $sub_finder  = URI::Find::->new(\&finder_sub);
        ...
    }
}