my @files = File::Find::Rule->file()
                              ->name( '*.txt' )
                              ->maxdepth(1)
                              ->in( $dir );
$zip->addFile($_) for @files;