Or you can use File::Find::Rule, an "Alternative interface to File::Find".

use strict;
use warnings;

use File::Find::Rule;

my $pattern = '*.rdf';
my $path = '.';

my @results = File::Find::Rule
    ->name( $pattern )
    ->file
    ->nonempty
    ->in( $path );

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