use File::Find::Rule;
my @files = find( 'file', 'name', qr/\.mp3$/i, 'maxdepth', 1, 'in', $inpath );