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

open my($fh), '>', $file or die "can't open '>', $file : $! ";