It's really not complicated, but maybe the example code below will help to understand the documentation ...

Rata

use strict;
use warnings;
use File::Find;
my $path          = "d://changma_ha";

find(\&checkFile, $path);

exit 0;


sub checkFile
{
    my $fullfilename    = $File::Find::name;    # with the full path
    my $filename        = $_;                   # just the filename
    
    if ($filename =~ /\.mp3$/ )                 # name ends with .mp3
    {
       print "Finally found $fullfilename\n";
    }
}
[download]