#! /usr/bin/env perl
use strict;
use warnings;

use 5.012;
use File::Find::Rule;

# welche Verzeichnisse sollen durchsucht werden
my @directories = qw( /tmp );

# neue Regel; suche Dateien, auf die gegebene Regel *NICHT* zutrifft, in den Verzeichnissen
my @files = File::Find::Rule->file()->not(
    # Regel: Datei endet auf .txt
    File::Find::Rule->new->name( '*.txt' )
)->in( @directories );

# Treffer ausgeben
say for @files;