Select Code to Download

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

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