/usr/perl drinneliegt: 

#!/usr/bin/perl 
use strict; 
use warnings; 
use diagnostics; 
use File::Find::Rule; 
my @files = File::Find::Rule->file() 
                 ->name('einzelergebnis*.html') 
                 ->in( '.' ); 
foreach my $file(@files) { 
        print $file, "\n"; 

}