find(sub { /\.zip$/ && push @files, $File::Find::name }, $path);