PHP Code:
#!/usr/bin/perl 
use strict; 
use warnings; 
use diagnostics; 
use File::Find::Rule; 
my @files = File::Find::Rule->file() 
->name('einzelergebnis*.html') 
->in('.');