Hi Anonymous Monk,
A short example to get you started:

#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;

my @filesfound = File::Find::Rule->file()
                            ->name( 'LEAF*.LOG' )
                            ->in( "." );

foreach my $filename (@filesfound)
{
    print "$filename\n";
}
[download]

Should you need help installing modules, check out the Tutorials section of this site.

Hope this helps.

Martin

Update: Changed .log to .LOG