#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                 ->name('einzelergebnis*')
                 ->in( '/home/usr/htmlfiles' );
foreach my $file(@files) {
        print $file, "\n";
}